<%@ Page Language="
VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<Script Runat="Server">
Sub Button_Click( s As Object, e As EventArgs )
Dim ConTRSS As SqlConnection
Dim strInsert As String
Dim cmdInsert As SqlCommand
Dim strAuthHost, strUsrPath
strAuthHost = "WinNT://websrv"
strUsrPath = "WinNT://domain/websrv/"
ConTRSS = New SqlConnection( "Server=***.***.***.***;UID=*********;Password=*** ****************;database=SecurIDToken_Survey" )
strInsert = "Insert UserSurvey ( FirstName, LastName, PhoneNumber, EmailAddress, ConnectTo, Often, Easy, RecommendToken, PreferAlpha, Rating, Comments, UniqueID ) Values ( @FirstName, @LastName, @PhoneNumber, @EmailAddress, @ConnectTo, @Often, @Easy, @RecommendToken, @PreferAlpha, @Rating, @Comments, @UniqueID )"
cmdInsert = New SqlCommand( strInsert, ConTRSS )
cmdInsert.Parameters.Add( "@FirstName", request.form("txtFirstName"))
cmdInsert.Parameters.Add( "@LastName", request.form("txtLastName"))
cmdInsert.Parameters.Add( "@PhoneNumber", request.form("txtPhoneNumber"))
cmdInsert.Parameters.Add( "@EmailAddress", request.form("txtEmailAddress"))
cmdInsert.Parameters.Add( "@ConnectTo", request.form("txtConnectTo"))
cmdInsert.Parameters.Add( "@Often", request.form("txtOften"))
cmdInsert.Parameters.Add( "@Easy", request.form("txtEasy"))
cmdInsert.Parameters.Add( "@RecommendToken", request.form("txtRecommendToken"))
cmdInsert.Parameters.Add( "@PreferAlpha", request.form("txtPreferAlpha"))
cmdInsert.Parameters.Add( "@Rating", request.form("txtRating"))
cmdInsert.Parameters.Add( "@Comments", request.form("txtComments"))
cmdInsert.Parameters.Add( "@UniqueID", request.form("txtUniqueID"))
ConTRSS.Open()
cmdInsert.ExecuteNonQuery()
ConTRSS.Close()
End Sub