If Not DBstr = "" Then Set DB = Server.CreateObject("ADODB.Connection") DB.Open DBstr If Not SQL = "" Then 'Split SQL ved \g SQLarray = Split(SQL,"\g") For N = 0 To UBound(SQLarray) If Not SQLarray(N) = "" And Not Left(SQLarray(N),1) = "#" Then DB.Execute(SQLarray(N)) Response.Write(SQLarray(N)) If Err.number <> 0 Then %><BR> <I><B>Fejl :</B> <%=Err.description%></I><BR><% Else %> <I><B>: OK</B></I><BR><% End If Response.Write(vbCrLf) End If Next 'N End If DB.Close Set DB = Nothing End If %> </BODY> </HTML>
Kanon ! Du har gjort mig meget klogere ! Takker :)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.