:: AURORA CRUISES SHIP

<%@Language=VBScript%> <% Dim strFrom, strTo, strSubject, strBody Dim objEmail, i, str str = "I found a web page that you might like to see: http://www.nile-cruises.com." strFrom = request("YourEmail") strSubject = "Hi!" If(request("friendname").count > 0) Then For i = 1 to request("friendname").count Step 1 If(request("friendname")(i) <> "" And request("email")(i) <> "") Then strBody = "Hello " & request("friendname")(i) & ", " & vbCrLf strBody = strBody & str & vbCrLf If (request("Comment") <> "") Then strBody = strBody & request("Comment") End If strTo = request("email")(i) SendEmail strFrom, strTo, "", strSubject, strBody End If Next End If %> :: AURORA CRUISES SHIP