B"H
All,
When I run the script below in WIN 98 on my machine it works. When I run the same script on WIN 2K on the server it gives me the message: HTTP 500 Internal Server Error!
The script is to add fields from a form to an access database. Any help will be greatly appreciated.
Daniel
<%
If Request.Form("Submit"="Submit" Then
'Get Form details
first=Request.Form("first"
last=Request.Form("last"
email=Request.Form("email"
pnew=Request.Form("new"
prenew=Request.Form("renew"
'Check that user supplied fields are completed
If first="" OR last="" OR email="" OR pnew="" or prenew="" THEN
response.redirect("passw3.asp"
ELSE
'update e-mail address
Dim con, sql_insert, data_source
If pnew <> prenew then
response.redirect("passw2.asp"
else
sql_insert = "insert into vamos (access_firstname, access_username, email, access_password) values ('"& first &"', '"& last &"', '"& email &"', '"& prenew &"')"
Set conn = Server.CreateObject("ADODB.Connection"
'Set RS=Server.CreateObject("ADODB.RecordSet"
'RS.Open con, 1, 1
conn.Open "odbc"
set rsquery = conn.Execute(sql_insert)
'conn.Close
Set con = Nothing
set rsquery = Nothing
Response.redirect("done2.asp"
end if
END IF
End If
%>
Do you know the Chabad Lubavitch Sheliach in your area?
He is waiting for you!
All,
When I run the script below in WIN 98 on my machine it works. When I run the same script on WIN 2K on the server it gives me the message: HTTP 500 Internal Server Error!
The script is to add fields from a form to an access database. Any help will be greatly appreciated.
Daniel
<%
If Request.Form("Submit"="Submit" Then
'Get Form details
first=Request.Form("first"
last=Request.Form("last"
email=Request.Form("email"
pnew=Request.Form("new"
prenew=Request.Form("renew"
'Check that user supplied fields are completed
If first="" OR last="" OR email="" OR pnew="" or prenew="" THEN
response.redirect("passw3.asp"
ELSE
'update e-mail address
Dim con, sql_insert, data_source
If pnew <> prenew then
response.redirect("passw2.asp"
else
sql_insert = "insert into vamos (access_firstname, access_username, email, access_password) values ('"& first &"', '"& last &"', '"& email &"', '"& prenew &"')"
Set conn = Server.CreateObject("ADODB.Connection"
'Set RS=Server.CreateObject("ADODB.RecordSet"
'RS.Open con, 1, 1
conn.Open "odbc"
set rsquery = conn.Execute(sql_insert)
'conn.Close
Set con = Nothing
set rsquery = Nothing
Response.redirect("done2.asp"
end if
END IF
End If
%>
Do you know the Chabad Lubavitch Sheliach in your area?
He is waiting for you!