:cry:troubleshooting : database is read only. line32 or microsoft jet 4.0 trouble. Http 500.100
PLease advise:(
<%
dim dbname
dim conntemp, cnpath, sqltemp, rstemp
dim user
user = request.form("Username")
dbname="member.mdb"
set conntemp=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath(dbname)
conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
sqltemp="select * from userlist"
Set rstemp = Server.CreateObject("ADODB.Recordset")
rstemp.Open sqltemp, conntemp, 3, 2
rstemp.addnew
rstemp.fields("Username") = request.form("username")
rstemp.fields("Password") = request.form("password")
rstemp.fields("Firstname") = request.form("firstname")
rstemp.fields("Lastname") = request.form("lastname")
rstemp.fields("Company") = request.form("company")
rstemp.fields("Email") = request.form("email")
rstemp.fields("Phone") = request.form("phone")
rstemp.fields("Fax") = request.form("fax")
rstemp.fields("Address") = request.form("address")
rstemp.fields("City") = request.form("city")
rstemp.fields("State") = request.form("state")
rstemp.fields("Zip") = request.form("zip")
rstemp.fields("Country") = request.form("country")
rstemp.fields("Sex") = request.form("sex")
rstemp.fields("Age") = request.form("age")
rstemp.fields("Education") = request.form("education")
rstemp.fields("Nationality") = request.form("national")
rstemp.update
rstemp.close
set rstemp = nothing
session("Message") = "Congratulations, You have been registered. Now you can login."
response.Redirect "himaweb.htm"
%>
