Hej!
jag vill skapa ett felmeddelande ifall de värden man lägger in i databasen via administrationsgränssnittet skapar dubletter i index, Jag har försökt med Err objektet, men den returnerar värdet 0.
Vad jag kan förstå så är det helt som det skall eftersom felet inte genereras av ASP koden utan utav databasen i sig?

Så: vad skall jag använda mig av för att skapa en "trap" så att man kan skriva ett felmeddelande om vad som hänt så att användaren förstår att inga data är sparade i databasen??

mvh
Christian

På connection-objectet tror jag det finns err, error, errors eller liknande, kolla om du får något vettigare där.

/Johan

oK.. tack Johan..
jag vet inte om jag löst problemet än, men jag hittade en liten kodsnutt som kan vara lösningen..
äterkommer när jag vet mer...

lägger ut koden här... den kanske kan bli användbar???

<%@ LANGUAGE="VBSCRIPT" %>

<%
DIM objErr, oConn, oRS, theSQL

' Create a connection object
strSource = "Enter your DSN or DSNless connection"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open strSource

'Check for connection errors
if oConn.Errors.Count > 0 THEN

Set objErr = Server.CreateObject("ADODB.Error")

For Each objErr in oRS.Errors

if objErr.Number <> 0 THEN
Response.Write "Number: " & objErr.Number & VbCrLf
Response.Write "Description: " & objErr.Description & VbCrLf
Response.Write "Source: " & objErr.Source & VbCrLf
Response.Write "SQLState: " & objErr.SQLState & VbCrLf
Response.Write "NativeError: " & objErr.NativeError & VbCrLf
End If
Next
Set objErr = Nothing

End If


' Create a recordset object

Set oRS = Server.CreateObject("ADODB.Recordset")
theSQL = "Enter your SQL"

oRS.Open theSQL, oConn
'Check for errors after running query

if oConn.Errors.Count > 0 THEN
Response.Write oConn.Errors.count & VbCrLf' writes the number of errors found
Set objErr = Server.CreateObject("ADODB.Error")

For Each objErr in oRS.Errors

if objErr.Number <> 0 THEN
Response.Write "Number: " & objErr.Number & VbCrLf
Response.Write "Description: " & objErr.Description & VbCrLf
Response.Write "Source: " & objErr.Source & VbCrLf
Response.Write "SQLState: " & objErr.SQLState & VbCrLf
Response.Write "NativeError: " & objErr.NativeError & VbCrLf
End If
Next
Set objErr = Nothing

End If

If not oRS.BO OR oRS.EOF Then

oRS.MoveFirst

Do While Not oRS.EOF
' execute some code
oRS.MoveNext
Loop
Else
' We had an empty recordset
' Do something else
End If


'Close all objects and resources

oRS.Close
Set oRS = Nothing
oConn.close
set oConn = Nothing
%>






mvh
Christian

OK.... Jag är ett riktigt pundhuvud!!! jag erkänner...!!!
Naturligtvis skall man köra error kollen efter att man exekverat SQL:en!!!
Jag har nu löst problemet och kommer att göra en liten applikation som skriver ut felkoden samt beskrivning i en liten Alerter, + att den kommer att maila resultatet om ett fel uppstår...
Någon som är intresserad???

Är du nöjd med svaren, så vore det bra om du satte tråden som löst.