Stvarno mi je hitno...treba mi za danas!!!
Zelim da napravim prostu stranicu u ASP.
Treba da sadrzi samo 2 polja za text i to:
Username:
Password:
i jedno dugme.
Kad kliknem na dugme polja "Username" i "password" bi trebala da se upisu u MS ACces bazu podataka.
Moze li mi neko dati kod?? HVALA MNOOOOGO unapred!!!
ASP i MS Access baza podataka...
Zaključano
Zakačeno
Mozes li da mi das kod , posto mi je tesko da se snadjem u onom i da vadim delove koda???
evo ga i direktan link ka jednom primeru. Nemoj tražiti da uradim ceo posao umesto tebe pošto tako nikad nećeš naučiti kako se radi. Ako ti nešto nije jasno u kodu slobodno pitaj, neko će sigurno odgovoriti
Potpis
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
Da je važnije biti ljubazan nego biti u pravu
Pa dobro...ja sam uradio jedan kod. Evo ga , napravi .asp fajl , pokreni ga na serveru i popravi gresku.
TAko mi nesto treba , ako razumes.
Sto se tice greske pise :
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
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>
<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
na prvi pogled pre
Code:
conn.close
treba da imaš dva putaconn.close
Code:
end if
end if
Potpis
Naučio sam...
Da je važnije biti ljubazan nego biti u pravu
Da je važnije biti ljubazan nego biti u pravu
Hvala ti!!
Ali sad nece da mi prikaze... text polja. Nista samo titl...Nista...
Ajde nauci da citas kod
ako actionvar nije add nista se ne prikazuje
Code:
IF Actionvar="add" THEN
IF Actionvar="add" THEN
ako actionvar nije add nista se ne prikazuje
Potpis
Covece toga se nisam setio!!!!
Mnooooooooogo fala!!!
Mnooooooooogo fala!!!
e jbga...ponovo greska...
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Number of query values and destination fields are not the same.
Citat:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Number of query values and destination fields are not the same.
To govori da nemas isto polja u upitu i u tabeli u bazi...
Ovo
zameni saa
Code:
SQLstmt = SQLstmt & " VALUES ('" & request.form("username") & "','" & request.form("password")
SQLstmt = SQLstmt & " VALUES ('" & request.form("username") & "','" & request.form("password")
zameni saa
Code:
SQLstmt = SQLstmt & " VALUES ('" & request.form("username") & "','" & request.form("password") & "')"
SQLstmt = SQLstmt & " VALUES ('" & request.form("username") & "','" & request.form("password") & "')"