lista155
22-04-2003, 13:51
<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include virtual="adovbs.inc"-->
<%
Dim objCon
Set objCon=Server.CreateObject("ADODB.Connection")
objCon.ConnectionString="DSN=login.dsn"
objCon.Open
Dim objRS, greska
if ((Request("ime")="") OR (Request("email")="") OR (Request("lozinka")="")) OR then
Response.Write "<a href='noviKorisnik.asp'>"
Response.Write "Ispunite sva polja"
Response.Write "</A>"
else
greska=false
set objRS=Server.CreateObject("ADODB.RecordSet")
objRS.Open "tblKorisnik", objCon,, adLockOptimistic, adCmdTable
do while not (greska=True OR objRS.EOF)
if objRS("Ime")=Request("ime") then
Response.Write "<a href='noviKorisnik.asp'>"
Response.Write "Korisnik vec postoji" & "<br>"
Response.Write "</A>"
Response.Write "<a href='login.asp'>"
Response.Write "Vec ste registrirani? Onda kliknite ovdje"
Response.Write "</A>"
greska=true
end if
if objRS("E-Mail")=Request("email") then
Response.Write "<a href='noviKorisnik.asp'>"
Response.Write "Adresa vec postoji"
Response.Write "</A>"
greska=true
end if
objRS.MoveNext
loop
if not greska then
objRS.AddNew
objRS("Ime")=Request.Form("ime")
objRS("E-Mail")=Request.Form("email")
objRS("Lozinka")=Request.Form("lozinka")
objRS.Update
Response.Write "Registracija uspješna"
end if
objRS.Close
Set objRS=Nothing
end if
objCon.Close
Set objCon=Nothing
%>
---------------------------------
Javlja sljedeću grešku:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.
A odnosi se na redak "objRS.Update"
U čemu je greška? Unaprijed hvala!
<% Option Explicit %>
<!--#include virtual="adovbs.inc"-->
<%
Dim objCon
Set objCon=Server.CreateObject("ADODB.Connection")
objCon.ConnectionString="DSN=login.dsn"
objCon.Open
Dim objRS, greska
if ((Request("ime")="") OR (Request("email")="") OR (Request("lozinka")="")) OR then
Response.Write "<a href='noviKorisnik.asp'>"
Response.Write "Ispunite sva polja"
Response.Write "</A>"
else
greska=false
set objRS=Server.CreateObject("ADODB.RecordSet")
objRS.Open "tblKorisnik", objCon,, adLockOptimistic, adCmdTable
do while not (greska=True OR objRS.EOF)
if objRS("Ime")=Request("ime") then
Response.Write "<a href='noviKorisnik.asp'>"
Response.Write "Korisnik vec postoji" & "<br>"
Response.Write "</A>"
Response.Write "<a href='login.asp'>"
Response.Write "Vec ste registrirani? Onda kliknite ovdje"
Response.Write "</A>"
greska=true
end if
if objRS("E-Mail")=Request("email") then
Response.Write "<a href='noviKorisnik.asp'>"
Response.Write "Adresa vec postoji"
Response.Write "</A>"
greska=true
end if
objRS.MoveNext
loop
if not greska then
objRS.AddNew
objRS("Ime")=Request.Form("ime")
objRS("E-Mail")=Request.Form("email")
objRS("Lozinka")=Request.Form("lozinka")
objRS.Update
Response.Write "Registracija uspješna"
end if
objRS.Close
Set objRS=Nothing
end if
objCon.Close
Set objCon=Nothing
%>
---------------------------------
Javlja sljedeću grešku:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.
A odnosi se na redak "objRS.Update"
U čemu je greška? Unaprijed hvala!