Pa dobro...ja sam uradio jedan kod. Evo ga , napravi .asp fajl , pokreni ga na serveru i popravi gresku.
Code:
<HTML>
<BODY>
<B>Register on Hackz</B>
<%
Actionvar=Request.QueryString("actionvar")
Set conn = server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("base.mdb")
conn.Open DSNtemp
'Add user to database
IF Actionvar="add" THEN
IF Len(TRIM(request.form("flag"))) = 0 THEN
%>
Add<HR>
<FORM METHOD="post" ACTION="register.asp?Actionvar=add" id=form1 name=form1>
UserName: <INPUT TYPE="text" NAME="username"><BR>
Password: <INPUT TYPE="text" NAME="password"><BR>
<INPUT TYPE="hidden" NAME="flag" VALUE="2">
<INPUT TYPE="submit" VALUE="Register" id=submit1 name=submit1>
</FORM>
<%
ELSEIF Request.Form("flag")="2" THEN
SQLstmt = "INSERT INTO Table1 (username , password)"
SQLstmt = SQLstmt & " VALUES ('" & request.form("username") & "','" & request.form("password")
%>
<HR>
SQL statement: <%=SQLstmt%>
<HR>
<%
conn.execute(SQLstmt)
Response.Write "Registered<BR><A HREF=""register.asp"">Home</A>"
END IF
conn.Close
Set conn = nothing
Set SQLstmt = nothing
%>
</BODY>
</HTML>
TAko mi nesto treba , ako razumes.
Sto se tice greske pise :
Citat:
Technical Information (for support personnel)
Error Type:
Microsoft VBScript compilation (0x800A03F6)
Expected 'End'
/asp/register.asp, line 39
Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
Page:
GET /asp/register.asp
Time:
Wednesday, September 08, 2004, 5:58:37 PM
More information:
Microsoft Support