Den vil ikke slette række i Access. Hvorfor mon?
Hejsa.Jeg har et script, hvor folk kan tilmelde og afmelde sig. Men afmelde-funktionen fungerer desværre ikke. Og jeg kan altgså ikke gennemskue hvorfor.
Hvem kan hjælpe mig?
Her er et udpluk af de relevante koder:
==========================================
mailnews.asp :
if unsign <> "" then ' Frameldes
send = 1
URLconf = Map & "confirm.asp?unsign=" & rsIDpas
TopTxt = Replace(rs("TopTxt"),"[Username]",rsThis("Name"))
Subject = rs("ConfUnsignsubj")
ord = rs("ConfTxtUnsign")
end if
Case false '---Hvis den ikke er bekræftet.
if sign="yes" then ' Tilmeldes
SQL = "UPDATE mailinglist SET Timenow = '" & Timenow & "' WHERE Emailad = '" & Emailad & "';"
Conn.Execute(SQL)
Response.Write ("" & Emailad & " er allerede tilmeldt, men du har ikke bekræftiget velkomstmailen, som du bedes gøre indenfor 48 timer.")
send = 1
URLconf = Map & "confirm.asp?sign=" & rsIDpas
Subject = rs("ConfSignsubj")
ord = rs("ConfTxtSign")
TopTxt = Replace(rs("TopTxt"),"[Username]","")
End if
if Unsign="yes" then ' Frameldes
Response.Write ("Denne E-mail: " & Emailad & " er nu frameldt." & vbCrlf)
send=0
End if
End Select
==========================================
Header.asp :
<% @LANGUAGE = VBscript %>
<% Option Explicit %>
<%
Response.buffer=True
Server.ScriptTimeout = 1000
Session.Timeout = 40
%>
<!-- #INCLUDE FILE="db.inc" -->
<%
'Dim af variabler sikrer de staves korrekt og optimerer hastigheden
Dim rsThis,Sender,BodyTextto,Sendername,smtpserver,Subject,Priority,Mailtype, UsernameEmail, PasswordEmail,modifyArray, i
Dim Months,Days,Hours,Minutes,Seconds,Years,Timenow,Timeout,OutDate,mode,ord,slet,Felt, NewStr, Estr
Dim OutTime,dbname,conn,SQL,Pos,Map,Unsign,Sign,Emailad,password,bodytext,com, ReturnedT
Dim Name,LName,action,Confirm,send,URL,IDpas,rsIDpas,conf,URLConf,rsConfirm,rs
Dim Charset,Importance,orderstr, sort, newPost, count, order, status, dbpath
Dim Confsignsubj, ConfTxtsign, ConfUnSignsubj, ConfTxtUnsign, TopTxt, BottTxt,intRecCount, intPageCount,intPage, intNum
Function ConvertDate(dtmDate)
Months = right("00" & DatePart("m", dtmDate) ,2)
Days = right("00" & DatePart("d", dtmDate) ,2)
Hours = right("00" & DatePart("h", dtmDate) ,2)
Minutes = right("00" & DatePart("n", dtmDate) ,2)
Seconds = right("00" & DatePart("s", dtmDate) ,2)
Years = right(DatePart("yyyy", dtmDate), 2)
OutDate = Years& "-" & Months & "-" & Days
OutTime = Hours &"-"& Minutes &"-"& Seconds
ConvertDate = OutDate & "-" & OutTime
End Function
' Timer
Timenow = ConvertDate(NOW)
Timeout = ConvertDate(NOW-2)
Com = ""
' Connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(dbpath)
' Slet uvedkommende rækker
SQL = "DELETE FROM mailinglist WHERE Timenow <'" & Timeout & "' AND Confirm=0"
Conn.execute (SQL)
' Lav den rette sti
URL="http://" & Request.ServerVariables("SERVER_NAME") & Request.Servervariables("URL")
Pos =InstrRev(URL, "/", -1, 1)
Map = Left(URL,Pos)
' Hent konfigurationen ud!
SQL = "SELECT * FROM config WHERE Testcomp=1;"
Set rs = Conn.execute (SQL)
If NOT (rs.BOF AND rs.EOF) then
smtpserver = rs("Smtpserver")
Sender = rs("Sender")
SenderName= rs("Sendername")
' Importance values:
'1 - Normal or 2 - High
Importance = rs("Priority")
'Mail type values:
'ASPEmail - 1
'ASPMail - 2
'aspSmartMail - 3
'Chili!Mail - 5 / CDONTS
'DundasMailer - 4
'JMail - 6
UsernameEmail= rs("UsernameEmail")
PasswordEmail= rs("PasswordEmail")
Mailtype = rs("Mailtype")
Password = rs("Password")
TopTxt = rs("TopTxt")
BottTxt = rs("BottTxt")
else
Response.Write("<h2 align=""center"">Desværre, opsætningen er ikke færdig.</h2>")
Response.End
End if
Unsign= Request("Unsign")
Sign= Request("Sign")
bodytext = Request.form("bodytext")
mode= Request("mode")
action = Request.QueryString("action")
IDPas = Request.QueryString("IDpas")
sort = Request.QueryString("sort")
status = Request.QueryString("status")
Name = Request.form("Name")
LName =Lcase(Name)
Emailad = LCase(Request.form("Emailad"))
Confirm=0
%>
==========================================
Hejsa igen: extend
