<%@ language="vbscript" %>
<html>
<body>
<P>
<%
dim adOpenDynamic,adLockOptimistic,adCmdtext
adOpenDynamic=0
adLockoptimistic=1
adCmdtext=2
dim i
i=1
dim conn,rs,strsql
dim fname,lname,gender,month,date,year,uname,pwd,email
set conn=Server.Createobject("ADODB.Connection")
set rs=Server.Createobject("ADODB.Recordset")
conn.ConnectionString="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=myshoppe;Data Source=NVC-10\SQLEXPRESS"
conn.Open
fname=Request.Form("first_name")
lname=Request.Form("last_name")
gender=Request.Form("gender")
'month=Request.Form("Month")
'date=Request.Form("date")
'year=Request.Form("year")
email=Request.Form("email")
uname=Request.Form("user_name")
pwd=Request.Form("pwd")
strsql = "INSERT INTO user_info(fname, lname, gender, email, uname, pwd) VALUES(' " & fname & "',' " & lname &"',' " & gender & "', "& email & "',' " & uname & "',' " & pwd & "')"
conn.Execute (strsql)
Response.Write("submitted<>")
Response.Write "Connected OK"
%>
<br>
</P>
</body>
</html>
Поставщик Microsoft OLE DB для SQL
Разрешение INSERT для сервера (0x80040E09)
отказано в объекте 'user_info', база данных
'myshoppe', схема 'dbo'.