%@ Language=VBScript %> <% Option Explicit %><% Dim vbCrLf, vbTab vbCrLf = Chr(13) & Chr(10) vbTab = Chr(9) If Request("submit") <> "" Then Dim CurrentKey, insertStr For CurrentKey = 1 To Request.Form.Count - 1 If Request.Form.Key(CurrentKey) <> "Submit" Then insertStr = insertStr & Replace(Request.Form.Key(CurrentKey),"_"," ") & ":" & vbTab & Request.Form.Item(CurrentKey) & vbCrLf End If Next Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "YouAreSpecial@power-twins.com" objCDO.To = "joelbrda@gmail.com" objCDO.Cc = "habakkukint@yahoo.com" objCDO.Subject = "Power Twins Contact Form" objCDO.Body = insertStr objCDO.Send() Set objCDO = Nothing Response.Redirect("Thankyou2.htm") End If %>