problem med delete

Databaser & SQL

1 svar · 180 visningar · startad av WebbisNet 3 aug. 2003

WebbisNetMedlem sedan feb. 20032 027 inlägg

Trådstart3 aug. 2003 21:52#1

Vad är det för fel med den här delete-satsen?

<%
Dim RS
Dim SQL
Dim Conn

set conn = Server.CreateObject("ADODB.Connection")

SQL = "DELETE FROM kontakt WHERE ID =" & Request.Querystring("ID") & ""

conn.Open connstr
Set RS = conn.Execute(SQL)

RS.Delete

RS.Close 
conn.Close

response.redirect "mail_read.asp"
%>

LarsGMedlem sedan dec. 200012 464 inlägg

3 aug. 2003 22:04#2

Du har en del onödig kod

<!-- #include file="../Include/inc/conn.inc" -->

<%
Dim SQL
Dim Conn

set conn = Server.CreateObject("ADODB.Connection")

SQL = "DELETE FROM kontakt WHERE ID =" & Request.Querystring("ID") 

conn.Open connstr
conn.Execute  sql
conn.Close

response.redirect "mail_read.asp"
%>