%Response.Buffer = True%>
<%If Request("x") <> 1 Then%>
Join the Toad for SQL Server Beta ProgramQuest Software, Inc.<%Else Dim email, m_body email = Request("email") m_body = "Name: " & Request("name") & vbCrLf & _ "Employer: " & Request("employer") & vbCrLf & _ "Title: " & Request("title") & vbCrLf & _ "Email: " & email & vbCrLf & _ "Database: " & Request("db") & vbCrLf & _ "Platform: " & Request("platform") & vbCrLf & _ "Workstation: " & Request("work") & vbCrLf & _ "Comments: " & Request("comments") Dim s_mail Set s_mail = Server.CreateObject("CDONTS.NewMail") s_mail.To = "amit.agarwal@quest.com" s_mail.From = email s_mail.Subject = "SQL Server Beta Registration Info" s_mail.Body = m_body s_mail.Send Set s_mail = Nothing %>Your information has been submitted.Click here to download the Toad for SQL Server 5.0 beta softwareFor questions or comments on this site: webmaster@toadsoft.com
|
|