Jeg har nu fundet ud af, at Adactive også bruger en NT server. Problemet er der dog stadig. Jeg har haft en side kørende på Adactive's server, og det har virket fint. Siden er nu flyttet over på en anden NT-server... nemlig
www.buydomains.dk's. Nu virker det ikke. Hvad kan det skyldes? Jeg kan ikke vise jer koden, men jeg kan fortælle jer lidt om den. Jeg har et forum, som siger fejl, når jeg skriver til min accessDB. Det virker ok, hvis jeg bare læser fra det.
Den del af koden, der sender til db'en ser sådan her ud:
<%
spmnummer = request.querystring("spm")
dbtabel = request.querystring("dbt")
Set rec = Server.CreateObject("ADODB.Recordset")
set conn = server.createobject("ADODB.connection")
conn.Open "DBQ=" & Server.Mappath("punkt47") & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "select * from " & dbtabel & " where svar = " & spmnummer & " or id = " & spmnummer & " order by ID"
rec.Open SQL, conn, 1, 3
aaben = request.form ("ulrikergod")
if aaben = "jo" then
v_dato = FormatDateTime(NOW)
v_emne = "re"
v_brugernavn = request.querystring("bruger")
v_tekst = Replace(request.form("bruger_tekst"), vbCrLf, "[br>")
v_tekst = Replace(v_tekst, "'", "’")
v_tekst = Replace(v_tekst, "<", "<")
v_tekst = Replace(v_tekst, "[br>", " <br>")
v_brugernavn = Replace(v_brugernavn, "<", "<")
v_brugernavn = Replace(v_brugernavn, "<", "<")
if (v_brugernavn = "" or v_tekst = "" or v_emne = "") then
response.write "<script language='javascript'>" & VBCRLF
response.write "alert ('Du skal udfylde alle boxene!')" & VBCRLF
response.write "</script>" & VBCRLF
end if
if NOT (v_brugernavn = "" or v_tekst = "" or v_emne = "") then
rec.AddNew
rec.Fields("dato") = v_dato
rec.Fields("emne") = v_emne
rec.Fields("brugernavn") = v_brugernavn
rec.Fields("tekst") = ConvertText(v_tekst)
rec.Fields("svar") = spmnummer
rec.Update
response.redirect ("kat_show_debat.asp?spm=" & spmnummer & "&dbt=" & dbtabel & "&bruger=" & request.querystring("bruger"))
end if
end if
Records = rec.RecordCount
%>