Hej
Her er så min kode. Det jeg gerne ville er at kunne slette alle data i eks
ID 2, med en tekstboks hvor jeg taster 2 og så trykker på knappen.
<%
' FP_ASP ASP genereret automatisk af en FrontPage-komponent. Undlad at
redigere.
On Error Resume Next
strErrorUrl = ""
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear
Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Der kan ikke oprettes forbindelse."
Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Postsæt kan ikke åbnes."
fp_conn.Open Application("Default_ConnectionString")
FP_DumpError strErrorUrl, "Databasen kan ikke åbnes."
fp_rs.Open "Resultater", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic,
adCmdTable
FP_DumpError strErrorUrl, "Postsæt kan ikke åbnes."
fp_rs.AddNew
FP_DumpError strErrorUrl, "Der kan ikke føjes nye poster til databasen."
Dim arFormFields0(1)
Dim arFormDBFields0(1)
Dim arFormValues0(1)
arFormFields0(0) = "T1"
arFormDBFields0(0) = "T1"
arFormValues0(0) = Request("T1")
FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"),
"Navn_på_fjerncomputer"
End If
If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"),
"Webbrowsertype"
End If
FP_SaveFieldToDB fp_rs, Now, "Tidsstempel"
If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"),
"Brugernavn"
End If
fp_rs.Update
FP_DumpError strErrorUrl, "Databasen kan ikke opdateres."
fp_rs.Close
fp_conn.Close
FP_FormConfirmation "text/html; charset=windows-1252",_
"Formularbekræftelse",_
"Du har sendt følgende oplysninger:",_
"knappe.asp",_
"Vend tilbage til formularen."
End If
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>
<body>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveDatabase" SuggestedExt="asp" S-DataConnection="Default"
S-RecordSource="Resultater" U-Database-URL="fpdb/Default.mdb"
S-Builtin-Fields="REMOTE_HOST HTTP_USER_AGENT Timestamp REMOTE_USER"
S-Builtin-DBFields="Navn_på_fjerncomputer Webbrowsertype Tidsstempel
Brugernavn" S-Form-Fields="T1" S-Form-DBFields="T1" startspan
U-ASP-Include-Url="_fpclass/fpdbform.inc" --><input TYPE="hidden"
NAME="VTI-GROUP" VALUE="0"><!--#include
file="_fpclass/fpdbform.inc"--><!--webbot bot="SaveDatabase" endspan
i-checksum="40548" -->
<table border="1" width="37%" id="table1">
<tr>
<td> </td>
<td width="152"><input type="text" name="T1" size="20"></td>
</tr>
</table>
<p><input type="submit" value="Send" name="B1"></p>
</form>
<p> </p>
<table width="100%" border="1">
<thead>
<tr>
<th ALIGN="LEFT"><b>Id</b></th>
<th ALIGN="LEFT"><b>T1</b></th>
<th ALIGN="LEFT"><b>Navn_på_fjerncomputer</b></th>
<th ALIGN="LEFT"><b>Brugernavn</b></th>
<th ALIGN="LEFT"><b>Webbrowsertype</b></th>
<th ALIGN="LEFT"><b>Tidsstempel</b></th>
</tr>
</thead>
<tbody>
<!--webbot bot="DatabaseRegionStart"
s-columnnames="Id,T1,Navn_på_fjerncomputer,Brugernavn,Webbrowsertype,Tidsstempel"
s-columntypes="3,202,202,202,202,135" s-dataconnection="Default"
b-tableformat="TRUE" b-menuformat="FALSE" s-menuchoice s-menuvalue
b-tableborder="TRUE" b-tableexpand="TRUE" b-tableheader="TRUE"
b-listlabels="TRUE" b-listseparator="TRUE" i-listformat="0"
b-makeform="FALSE" s-recordsource="Resultater"
s-displaycolumns="Id,T1,Navn_på_fjerncomputer,Brugernavn,Webbrowsertype,Tidsstempel"
s-criteria s-order s-sql="SELECT * FROM Resultater" b-procedure="FALSE"
clientside suggestedext="asp" s-defaultfields s-norecordsfound="Der er ikke
blevet returneret nogen poster." i-maxrecords="256" i-groupsize="5"
botid="0" u-dblib="_fpclass/fpdblib.inc" u-dbrgn1="_fpclass/fpdbrgn1.inc"
u-dbrgn2="_fpclass/fpdbrgn2.inc" tag="TBODY" preview="<tr><td
colspan=64 bgcolor="#FFFF00" width="100%"><font
color="#000000">Dette er begyndelsen af området med
databaseresultater.</font></td></tr>"
startspan --><!--#include file="_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>Komponenten
Databaseresultater på denne side kan ikke vise databaseindhold. Siden skal
have et filnavn, der slutter med '.asp', og webstedet skal findes på en
server, der understøtter Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Resultater"
fp_sDefault=""
fp_sNoRecords="<tr><td colspan=6 align=""LEFT"" width=""100%"">Der er ikke
blevet returneret nogen poster.</td></tr>"
fp_sDataConn="Default"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=5
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&Id=3&T1=202&Navn_på_fjerncomputer=202&Brugernavn=202&Webbrowsertype=202&Tidsstempel=135&"
fp_iDisplayCols=6
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan i-checksum="49741" --><tr>
<td>
<!--webbot bot="DatabaseResultColumn"
s-columnnames="Id,T1,Navn_på_fjerncomputer,Brugernavn,Webbrowsertype,Tidsstempel"
s-column="Id" b-tableformat="TRUE" b-hashtml="FALSE" b-makelink="FALSE"
clientside b-MenuFormat preview="<font
size="-1">&lt;&lt;</font>Id<font
size="-1">&gt;&gt;</font>"
startspan --><%=FP_FieldVal(fp_rs,"Id")%><!--webbot
bot="DatabaseResultColumn" endspan i-checksum="1373" --></td>
<td>
<!--webbot bot="DatabaseResultColumn"
s-columnnames="Id,T1,Navn_på_fjerncomputer,Brugernavn,Webbrowsertype,Tidsstempel"
s-column="T1" b-tableformat="TRUE" b-hashtml="FALSE" b-makelink="FALSE"
clientside b-MenuFormat preview="<font
size="-1">&lt;&lt;</font>T1<font
size="-1">&gt;&gt;</font>"
startspan --><%=FP_FieldVal(fp_rs,"T1")%><!--webbot
bot="DatabaseResultColumn" endspan i-checksum="61085" --></td>
<td>
<!--webbot bot="DatabaseResultColumn"
s-columnnames="Id,T1,Navn_på_fjerncomputer,Brugernavn,Webbrowsertype,Tidsstempel"
s-column="Navn_på_fjerncomputer" b-tableformat="TRUE" b-hashtml="FALSE"
b-makelink="FALSE" clientside b-MenuFormat preview="<font
size="-1">&lt;&lt;</font>Navn_på_fjerncomputer<font
size="-1">&gt;&gt;</font>"
startspan --><%=FP_FieldVal(fp_rs,"Navn_på_fjerncomputer")%><!--webbot
bot="DatabaseResultColumn" endspan i-checksum="6080" --></td>
<td>
<!--webbot bot="DatabaseResultColumn"
s-columnnames="Id,T1,Navn_på_fjerncomputer,Brugernavn,Webbrowsertype,Tidsstempel"
s-column="Brugernavn" b-tableformat="TRUE" b-hashtml="FALSE"
b-makelink="FALSE" clientside b-MenuFormat preview="<font
size="-1">&lt;&lt;</font>Brugernavn<font
size="-1">&gt;&gt;</font>"
startspan --><%=FP_FieldVal(fp_rs,"Brugernavn")%><!--webbot
bot="DatabaseResultColumn" endspan i-checksum="30852" --></td>
<td>
<!--webbot bot="DatabaseResultColumn"
s-columnnames="Id,T1,Navn_på_fjerncomputer,Brugernavn,Webbrowsertype,Tidsstempel"
s-column="Webbrowsertype" b-tableformat="TRUE" b-hashtml="FALSE"
b-makelink="FALSE" clientside b-MenuFormat preview="<font
size="-1">&lt;&lt;</font>Webbrowsertype<font
size="-1">&gt;&gt;</font>"
startspan --><%=FP_FieldVal(fp_rs,"Webbrowsertype")%><!--webbot
bot="DatabaseResultColumn" endspan i-checksum="43689" --></td>
<td>
<!--webbot bot="DatabaseResultColumn"
s-columnnames="Id,T1,Navn_på_fjerncomputer,Brugernavn,Webbrowsertype,Tidsstempel"
s-column="Tidsstempel" b-tableformat="TRUE" b-hashtml="FALSE"
b-makelink="FALSE" clientside b-MenuFormat preview="<font
size="-1">&lt;&lt;</font>Tidsstempel<font
size="-1">&gt;&gt;</font>"
startspan --><%=FP_FieldVal(fp_rs,"Tidsstempel")%><!--webbot
bot="DatabaseResultColumn" endspan i-checksum="30503" --></td>
</tr>
<!--webbot bot="DatabaseRegionEnd" b-tableformat="TRUE"
b-menuformat="FALSE" u-dbrgn2="_fpclass/fpdbrgn2.inc" i-groupsize="5"
clientside tag="TBODY" preview="<tr><td colspan=64
bgcolor="#FFFF00" width="100%"><font
color="#000000">Dette er slutningen af området med
databaseresultater.</font></td></tr><TR><TD
VALIGN=MIDDLE COLSPAN=64><NOBR><INPUT TYPE=Button VALUE="
|< "><INPUT TYPE=Button VALUE=" <
"><INPUT TYPE=Button VALUE=" > "><INPUT
TYPE=Button VALUE=" >| ">
[1/5]</NOBR><BR></td></tr>"
startspan --><!--#include file="_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" endspan i-checksum="62730" --></tbody>
</table>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p><a href="Default.htm">Tilbage</a></p>
</body>
</html>
>
"FFunky" <ffunky@nowhere.com> skrev i en meddelelse
news:FshFd.82780$Vf.3721961@news000.worldonline.dk...
> "v41"
>> Men har dog lavet en form i frontpage2003, der lægger data i en
>> accessdatabase, og det virker fint, jeg kan også vise de data der i min
> mdb,
>> nu vil jeg så gerne kunne slette nogle rækker i min mdb fra en form på
>> min
>> webside.
>> Er der nogle der kan hjælpe mig med det.
>
> Når du kan vise data kan du altså
> 1) Lave en connection til databasen
> 2) Lave et recordset baseret på et SQL udtryk
> 3) Lave et SQL udtryk
>
> Ja men så er du allerede godt kørende. I stedet for at SELECTE et eller
> andet
> skal du så bare DELETE et eller andet. F. eks. "Delete From tablenavn
> Where
> etellerandet = 12"
> Lav aldrig en delete sætning uden en Where del, du vil slette alle data i
> tabellen.
> Hvis du har brug for mere hjælp må du hoste op med noget mere info.
> Hvad hedder tabellen/tabellerne, hvad hedder betingelsen for at der skal
> ske
> en
> sletning ??
>
> --
> Med venlig hilsen
> Tom Jensen
>
> Læs mere om databaser og asp her:
>
http://www.FFSoft.dk
>
>