% textfield = Request("textfield") textfield2 = Request("textfield2") textfield3 = Request("textfield3") textfield4 = Request("textfield4") textfield5 = Request("textfield5") select1 = Request("select1") textfield52 = Request("textfield52") textfield53 = Request("textfield53") textfield54 = Request("textfield54") textfield55 = Request("textfield55") textfield56 = Request("textfield56") textfield57 = Request("textfield57") textfield58 = Request("textfield58") select2 = Request("select2") checkbox1 = Request("checkbox1") checkbox2 = Request("checkbox2") checkbox3 = Request("checkbox3") checkbox4 = Request("checkbox4") checkbox5 = Request("checkbox5") checkbox6 = Request("checkbox6") checkbox7 = Request("checkbox7") textfield6 = Request("textfield6") mailmsg = mailmsg & "Celan - Contact Us Form" & vbCrLf mailmsg = mailmsg & "¡@First Name: " & textfield & vbCrLf mailmsg = mailmsg & "¡@Last Name:" & textfield2 & vbCrLf mailmsg = mailmsg & "¡@Title: " & textfield3 & vbCrLf mailmsg = mailmsg & "¡@E-Mail: " & textfield4 & vbCrLf mailmsg = mailmsg & "¡@Organization: " & textfield5 & vbCrLf mailmsg = mailmsg & "¡@Business Type: " & select1 & vbCrLf mailmsg = mailmsg & "¡@Address: " & textfield52 & vbCrLf mailmsg = mailmsg & "¡@Address (2): " & textfield53 & vbCrLf mailmsg = mailmsg & "¡@City: " & textfield54 & vbCrLf mailmsg = mailmsg & "¡@State: " & textfield55 & vbCrLf mailmsg = mailmsg & "¡@Zip: " & textfield56 & vbCrLf mailmsg = mailmsg & "¡@Phone: " & textfield57 & vbCrLf mailmsg = mailmsg & " Fax: " & textfield58 & vbCrLf mailmsg = mailmsg & " How large is your network? " & select2 & vbCrLf mailmsg = mailmsg & " What technologies are you interested in? " & vbCrLf mailmsg = mailmsg & "¡@ " & checkbox1 & vbCrLf mailmsg = mailmsg & "¡@ " & checkbox2 & vbCrLf mailmsg = mailmsg & "¡@ " & checkbox3 & vbCrLf mailmsg = mailmsg & "¡@ " & checkbox4 & vbCrLf mailmsg = mailmsg & "¡@ " & checkbox5 & vbCrLf mailmsg = mailmsg & "¡@ " & checkbox6 & vbCrLf mailmsg = mailmsg & "¡@ " & checkbox7 & vbCrLf mailmsg = mailmsg & " Comments and Questions: " & vbCrLf mailmsg = mailmsg & textfield6 & vbCrLf Set mail1=Server.CreateObject("CDONTS.NewMail") mail1.To = "dns@goxite.com.tw" mail1.From = "dns@goxite.com.tw" mail1.Subject = "Celan - Contact Us Form" & vbCrLf mail1.Body = mailmsg mail1.Send %>
|
||||||||||||||||||||||||
|
||||||||||||||||||||||||
|
||||||||||||||||||||||||
|
||||||||||||||||||||||||