Otto Leholt skrev:
> Jeg bruger access 2000
2 muligheder:
Uden fejlhåndtering:
<%
Dim SQL, link, rs
' linket fra din form ligger i variablen link. husk at validere
' inddata
SQL = "SELECT COUNT(*) as antal FROM tbllinks WHERE link = '" & _
link & "'"
Set rs = conn.Execute(SQL)
If rs(0) = 0 Then
' linket ikke fundet, indsæt posten
SQL = "INSERT INTO tbllinks (link) VALUES '" & _
link & "'"
Conn.Execute (SQL)
Else
' linket fundet, udskriv meddelelse
End If
' Luk og sluk rs/conn mv.
%>
Med fejlhåndtering:
Øverst på siden:
<% On Error Resume Next %>
Blokken som før:
<%
Dim SQL, link, rs
' linket fra din form ligger i variablen link. husk at validere
' inddata
' Vi prøver at indsætte direkte
SQL = "INSERT INTO tbllinks (link) VALUES '" & _
link & "'"
Conn.Execute (SQL)
' Tjek om det er gået galt
If Err.Number <> 0 Then
' Der er en fejl
If Err.Number = [fejlkode fundet ved forsøg] Then
' Udskriv meddelelse om at linket findes i forvejen
Else
' Anden/ukendt fejl - giv besked
End If
Else
' Ingen fejl - udskriv evt. "alt o.k.-besked"
End If
%>
Fejlkoden jeg kalder [fejlkode fundet ved forsøg] kan du finde ved
at fjerne eller udkommentere "On Error Resume Next" og prøve at
indsætte et eksisterende link. Så vil asp-parseren skrive den på
siden.
Bemærk at fejlhåndteringsløsningen kun virker hvis linkfeltet er
unikt.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på
http://usenet.dk/netikette/citatteknik.html