I searched and couldn't find this error. Here is my code, it is failing at the red area. Thanks.
Dim cnNewsStories 'ADODB connection string
Dim rsNewsStories 'Recordset variable
Dim sql 'Holds the SQL statement
Dim cnUser 'Holds the SQL user name
Dim cnPassword 'Holds the SQL password
Dim ipaddress 'Holds the users IP Address
Dim sFullUser 'Holds the users NT ID
Dim pkey 'Holds the information from the pkey field on the previous form
'Setting pkey equal to the pkey field on the previous form
pkey = request.form("pkey"
'Setting SQL user name and password
cnUser = "webusers"
cnPassword = "webpage"
'Setting connection and opening ODBC
Set cnNewsStories = Server.CreateObject("ADODB.Connection"
cnNewsStories.open "CompanyNews", cnUser, cnPassword
Dim cnNewsStories 'ADODB connection string
Dim rsNewsStories 'Recordset variable
Dim sql 'Holds the SQL statement
Dim cnUser 'Holds the SQL user name
Dim cnPassword 'Holds the SQL password
Dim ipaddress 'Holds the users IP Address
Dim sFullUser 'Holds the users NT ID
Dim pkey 'Holds the information from the pkey field on the previous form
'Setting pkey equal to the pkey field on the previous form
pkey = request.form("pkey"
'Setting SQL user name and password
cnUser = "webusers"
cnPassword = "webpage"
'Setting connection and opening ODBC
Set cnNewsStories = Server.CreateObject("ADODB.Connection"
cnNewsStories.open "CompanyNews", cnUser, cnPassword