hjælp til script

Lave en
sql = "select * FROM users where id = " & Request.Form("id")
IF mitarray.BOF THEN
sript
END IF

hvis du skal have hele koden, så skriv det lige..

sript = script

Så må du hendte føste og tjekke på om ID findes...

Hvis ID er autonummer skal det ikke med i Insert


SQL = "SELECT ID FROM users where id = " & Request.Form("id")
Set rs = Conn.Execute (SQL)

if rs.EOF then
  'ID findes ikke så indsæt
  strSQL = "Insert into users(id, name) values('" & Request.Form("id") & "', '" & Request.Form("name")& "')"
else
  'ID finden så update
  strSQL = "update users set name '" & Request.Form("name")& "' where id = " & Request.Form("id")
end if
Conn.Execute (strSQL)

Denne burde virke
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/cgi-bin/database.mdb")
Conn.Open DSN

strSQL = "Select * from users WHERE id =" & Request.Form("id")
Set rs = Conn.Execute(strSQL)

IF rs.EOF THEN
insert..
ELSE
Update
END IF

Det giver følgende fejl :

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/hotline/datainsert.asp, line 19

Linie 19 = :Set rs = Conn.Execute(strSQL)

Her er den tilrettede kode:




<%

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=c:\websider\service-info.dk\db\hotline.mdb"
Conn.Open DSN
strSQL = "Select * from hotline WHERE idnummer =" & Request.Form("idnummer")
Set rs = Conn.Execute(strSQL)
if rs.EOF then
  'ID findes ikke så indsæt
  strSQL = "Insert into hotline (idnummer, kundenavn, kundeadr, kundeadr2, kundepostnr, kundeby, kundetele, koebsdato, loebetid, udstyr, fejlbeskrivelse) values('" & Request.Form("idnummer") & "', '" & Request.Form("kundenavn") & "', '" & Request.Form("kundeadr") & "', '" & Request.Form("kundeadr2") & "', '" & Request.Form("kundepostnr")& "', '" & Request.Form("kundeby") & "', '" & Request.Form("kundetele") & "', '" & Request.Form("koebsdato") & "', '" & Request.Form("loebetid") & "', '" & Request.Form("udstyr")& "', '" & Request.Form("fejlbeskrivelse")& "')"
else
  'ID findes så update
  strSQL = "update users set name '" & Request.Form("kundenavn")& "' where idnummer = " & Request.Form("idnummer")
end if
Conn.Execute (strSQL)

%>

Lille fejl, her er koden som jeg mener den skal se ud (men den virker ikke)

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=c:\websider\service-info.dk\db\hotline.mdb"
Conn.Open DSN
strSQL = "Select * from hotline WHERE idnummer =" & Request.Form("idnummer")
Set rs = Conn.Execute(strSQL)
if rs.EOF then
  'ID findes ikke så indsæt
  strSQL = "Insert into hotline (kundenavn) values('" & Request.Form("kundenavn")& "')"
else
  'ID findes så update
  strSQL = "update hotline set kundenavn '" & Request.Form("kundenavn")& "' where idnummer = " & Request.Form("idnummer")
end if
Conn.Execute (strSQL)

Så hvis den skal indsætte så er IDnummer tom i Form'en??

Request.Form("idnummer")

er idnummer i databasen et autonummer felt?

Ja svaret er ja til de to sidte spørgsmål så prøv denne kode :


Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=c:\websider\service-info.dk\db\hotline.mdb"
Conn.Open DSN
if Request.Form("idnummer") = "" then
  'ID findes ikke så indsæt
  strSQL = "Insert into hotline (kundenavn) values('" & Request.Form("kundenavn")& "')"
else
  'ID findes så update
  strSQL = "update hotline set kundenavn '" & Request.Form("kundenavn")& "' where idnummer = " & Request.Form("idnummer")
end if
Conn.Execute (strSQL)

idnummer er ikke et autofelt.

og idnummer er ikke tomt, hvilket jeg testede med en response.write

Ok så det tilbage til den anden, men så skal IDnummer med i Insert Into :


Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=c:\websider\service-info.dk\db\hotline.mdb"
Conn.Open DSN
strSQL = "Select * from hotline WHERE idnummer =" & Request.Form("idnummer")
Set rs = Conn.Execute(strSQL)
if rs.EOF then
  'ID findes ikke så indsæt
  strSQL = "Insert into hotline (kundenavn, idnummer) values('" & Request.Form("kundenavn") & "', " & Request.Form("idnummer") & ")"
else
  'ID findes så update
  strSQL = "update hotline set kundenavn '" & Request.Form("kundenavn")& "' where idnummer = " & Request.Form("idnummer")
end if
Conn.Execute (strSQL)