Kontrol af dubletter i DB

Du ska likke havde \ foran " og der skal være ' omrkring data hvis kolonne lbnr er en tekst kolonne og bruge = ikke LIKE så prøv sådan her:


<%
' 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("db\test.mdb")
Conn.Open DSN

SQL = "SELECT * FROM test WHERE lbnr = '" & Request.Form("lbnr") & "'"

Set RS = Conn.Execute(SQL)
if( RS.EOF ) then
  SQL = "INSERT INTO test (lbnr) values ('" & Request.Form("lbnr") & "')"
  Conn.Execute( SQL )
  response.write "Ny post opprettet"
else
  response.write "Den findes"
end if
%>

men du kan tilføje flere poster til din INSERT SQL

Det virker, den skriver enten "Den findes" eller "Ny post oprettet"

Jeg ønsker dog at den laver en link, eller redirecter til til opdateringssiden med det record ID den finder/opretter.

Jeg har forsøgt med nedenstående, men den henter ikke ID ind...

<%

Dim rs            'Holds the recordset for the records in the database
Dim lngRecordNo            'Holds the record number to be updated

' 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("db\test.mdb")
Conn.Open DSN


'Read in the record number to be updated
lngRecordNo = CLng(Request.QueryString("ID"))


SQL = "SELECT * FROM test WHERE lbnr = '" & Request.Form("lbnr") & "'"

Set RS = Conn.Execute(SQL)
if( RS.EOF ) then
  SQL = "INSERT INTO test (lbnr) values ('" & Request.Form("lbnr") & "')"
  Conn.Execute( SQL )
  response.write "Ny post oprettet <a href=""update_form.asp?ID=" & rs("ID") & """>"
Response.Write "</a>"
else
  response.write "Den findes <a href=""update_form.asp?ID=" & rs("ID") & """>"
Response.Write "</a>"
end if
%>

Når du har indsat bliver du nød til at hente det ud :) Prøv at rette:

if( RS.EOF ) then
  SQL = "INSERT INTO test (lbnr) values ('" & Request.Form("lbnr") & "')"
  Conn.Execute( SQL )
  response.write "Ny post oprettet <a href=""update_form.asp?ID=" & rs("ID") & """>"
Response.Write "</a>"
else

Til:

if( RS.EOF ) then
  SQL = "INSERT INTO test (lbnr) values ('" & Request.Form("lbnr") & "')"
  Conn.Execute( SQL )
  Set rs=Conn.Execute ("SELECT id FROM test WHERE lbnr = '" & Request.Form("lbnr") & "'")
  response.write "Ny post oprettet <a href=""update_form.asp?ID=" & rs("ID") & """>"
Response.Write "</a>"
else

Det virker 100%!

Tak for det hurtige svar, total asp-master :-)