SQL-kald
Hos en tidligere webhotel udbyder har følgende scripts virket fint, men hos min nye virker de ikke:DatabaseConnect.asp
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DCURESULT"
%>
----------------------------
UPDATE SQLkald
<body>
<!-- #include File="adovbs.inc" -->
<!-- #include File="DatabaseConnect.asp" -->
<%
Kriterie = cint(request("ID"))
Dim strSQL,objRS1
strSQL = "SELECT * FROM Klubdata Where klubdata.ID like '%" & Kriterie & "%';"
Set objRS1 = Server.CreateObject("ADODB.Recordset")
objRS1.Open strSQL, objConn, adLockOptimistic, adCmdTable
objRS1("Klubkode")= Request("Klubid")
objRS1("Klubnavn")=request("Klub")
objRS1("Stiftdato")=request("Stiftdato")
objRS1.update
objRS1.Close
Set objRS1 = Nothing
objConn.Close
Set objConn=Nothing
%>
---------------------------------
NEW Add SQLkald
<body>
<!-- #include File="adovbs.inc" -->
<!-- #include File="DatabaseConnect.asp" -->
<%
Dim Kriterie,strSQL,objRS
Kriterie = trim(request("Klubid"))
strSQL = "SELECT Klubkode FROM Klubdata Where Klubkode = '" & Kriterie & "';"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
objRS.Addnew
objRS("Klubkode")=request("Klubid")
objRS("Klubnavn")=request("Klub")
objRS("Stiftdato")=request("Stiftdat")
objRS("Logo")=request("Logo")
objRS("Klubadresse")=request("Kadres")
objRS.update
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn=Nothing
%>
Delete SQLkald
<body>
<!-- #include File="adovbs.inc" -->
<!-- #include File="DatabaseConnect.asp" -->
<%
Kriterie = cint(request("ID"))
Dim strSQL,objRS
strSQL = "SELECT * FROM Klubdata Where klubdata.ID like '%" & Kriterie & "%';"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, adLockOptimistic, adCmdTable
objRS.Delete
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn=Nothing
%>
Kan I give en begrundelse hertil?
