---

Hej,

Jeg henter data med ....
<%       Set Connect1 = Server.CreateObject("ADODB.Connection")
      strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/indhold.mdb")
      Connect1.Open strDSN
      %>

      <%
      Set RS_MainMessage = Connect1.Execute("SELECT * FROM gemtdata WHERE ID = " & intID)
      click = RS_MainMessage("henter")

%>

det sker at der inputtes in ID som IKKE er i db'en. Så hvordan får jeg lavet en fejl-kode der gør, at hvis ID ikke findes, så får jeg en errortext = "ehjewhjewh" - og at scriptet så kører videre.

altså, hvis ID er til stede i DB, så
.....

ellers

"FEJL TEKST"

pft

---

<%
Set RS_MainMessage = Connect1.Execute("SELECT * FROM gemtdata WHERE ID = " & intID)
if not RS_MainMessage.eof then
click = RS_MainMessage("henter")
else
response.write(intID & " findes ikke i databasen")
end if

%>


Mvh

sMorch

---

Tak for svaret smorch. - det virker som det skal.

Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.