hjælp til ASP - database rette funktion.
Hejsa!Har lidt kode her jeg lige skal have hjælp til at fungere og rettet for fejl.
Håber der er en der kan hjælpe mig. ;-)
KODE
--------------
<%
Response.Buffer = true
strMode = LCase(Request("Mode"))
If strMode = "delete" Then
strID = Request("Id")
If strID > "" Then
Set ConnectDB = Server.CreateObject("ADODB.Connection")
strSQLQuery = "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
ConnectDB.Open strSQLQuery
strSQL = "DELETE FROM database WHERE (id=" & strId & ");"
ConnectDB.Execute(strSQL)
ConnectDB.Close: Set ConnectDB = Nothing
End If
Response.Redirect "secher.asp"
ElseIf strMode = "gemtekst" Then
strID = Request("Id")
strtekst = Request("Tekst")
strtekst = Replace(strTekst, "'","'")
strtekst = replace(strTekst, Chr(34), """)
If strID > "" Then
Set ConnectDB = Server.CreateObject("ADODB.Connection")
strSQLQuery = "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
ConnectDB.Open strSQLQuery
If strID = "(Ny)" Then
strSQL = "INSERT INTO database (Tekst) VALUES ('" & strTekst & "');"
Else
strSQL = "UPDATE database SET Tekst='" & strTekst & "' WHERE (id=" & strId & ");"
End If
ConnectDB.Execute(strSQL)
ConnectDB.Close: Set ConnectDB = Nothing
End If
Response.Redirect "secher.asp"
ElseIf strMode = "edittekst" Then
strID = Request("Id")
If strID > "" Then
Set ConnectDB = Server.CreateObject("ADODB.Connection")
Set CmdRecord = Server.CreateObject("ADODB.Recordset")
strSQLQuery = "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
ConnectDB.Open strSQLQuery
strSQL = "SELECT * FROM database WHERE(id=" & strId & ");"
Set CmdRecord = ConnectDB.Execute(strSQL)
If Not CmdRecord.EOF And Not CmdRecord.BOF Then
strtekst = CmdRecord("Qxl")
strtekst1 = CmdRecord("Email")
strtekst2 = CmdRecord("Navn")
strtekst3 = CmdRecord("Adresse")
strtekst4 = CmdRecord("Postnr")
strtekst5 = CmdRecord("By")
strtekst6 = CmdRecord("Land")
strtekst7 = CmdRecord("Tlf")
strtekst8 = CmdRecord("Antalvarer")
strtekst9 = CmdRecord("Varer")
strtekst10 = CmdRecord("Formular")
strtekst11 = CmdRecord("Betaling")
strtekst12 = CmdRecord("Beløb")
strtekst13 = CmdRecord("Sendt")
strtekst14 = CmdRecord("Tt")
strtekst15 = CmdRecord("Besked")
End If
End If
%>
<html>
<head>
<META NAME="Robots" CONTENT="NONE">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-store">
<title>Administration - Rediger Indlæg #<%=strId%></title>
</head>
<body bgcolor=#ffffff text=#000000 link=#000080 alink=#000080 vlink=#000080>
<font face="Arial" size=5><b>Administration - Rediger Indlæg #<%=strId%></i></font></b></font>
<hr>
<font face="Arial" size=2>
<form action="secher.asp" method="post">
<input type="hidden" name="mode" value="gemtekst">
<input type="hidden" name="id" value="<%=strId%>">
<div align="center"><center>
<table border="0" cellpadding="2" cellspacing="0" width="89%">
<tr>
<td align="left" valign="top">QXL Brugernavn </td>
<td width="77%" colspan="2"><INPUT TYPE="text" NAME="Qxl" class="css" size="40" tabindex="1" value="<%=strTekst%>"></td>
</tr>
<tr>
<td align="left" width="23%" valign="top"><font size="3"
face="Arial">E-mail: </font></td>
<td colspan="2" width="77%"><INPUT TYPE="text" NAME="Email" class="css" size="40" tabindex="2" value="<%=strTekst1%>"></td>
</tr>
<tr>
<td align="left" width="23%" valign="top"><font size="3"
face="Arial">Navn: </font></td>
<td width="77%" colspan="2"><INPUT TYPE="text" NAME="Navn" class="css" size="40" tabindex="1" value="<%=strTekst2%>"></td>
</tr>
<tr>
<td align="left" width="23%" valign="top"><font size="3"
face="Arial">Adresse: </font></td>
<td colspan="2" width="77%"><INPUT TYPE="text" NAME="Adresse" class="css" size="40" tabindex="1" value="<%=strTekst3%>"></td>
</tr>
<tr>
<td align="left" width="23%" valign="top"><font size="3"
face="Arial">Postnr: </font></td>
<td colspan="2" width="77%"><INPUT TYPE="text" NAME="Postnr" class="css" size="8" tabindex="1" value="<%=strTekst4%>"></td>
</tr>
<tr>
<td width="23%" height="29" align="left" valign="top"><font size="3"
face="Arial">By: </font></td>
<td colspan="2" width="77%"><INPUT TYPE="text" NAME="By" class="css" size="40" tabindex="1" value="<%=strTekst5%>"></td>
</tr>
<tr>
<td align="left" width="23%" valign="top"><font size="3"
face="Arial">Land: </font></td>
<td colspan="2" width="77%"><INPUT TYPE="text" NAME="Land" class="css" size="40" tabindex="1" value="<%=strTekst6%>"></td>
</tr>
<tr>
<td align="left" width="23%" valign="top"><font size="3"
face="Arial">Tlf: </font></td>
<td colspan="2" width="77%"><INPUT TYPE="text" NAME="Tlf" class="css" size="40" tabindex="1" value="<%=strTekst7%>"></td>
</tr>
<tr>
<td align="left" width="23%" valign="top"><font size="3"
face="Arial">Vare køb/antal</font></td>
<td colspan="2" width="77%">
<INPUT NAME="Antalvarer" TYPE="text" class="css" tabindex="1" size="2" maxlength="2" value="<%=strTekst8%>">
<select name="Varer">
<option value=""></option>
<option value="Digitalt Kamera 5.0 Mpix">Digitalt Kamera 5.0 Mpix</option>
<option value="Digitalt Kamera 6.6 Mpix">Digitalt Kamera 6.6 Mpix</option>
<option value="Prosio Digitalt Kamera 9.9 Mpix">Prosio Digitalt Kamera 9.9 Mpix</option>
<option value="Mercury 380Watt Højtaler">Mercury 380Watt Højtaler</option>
<option value="Dobbelt DVD Cases">Dobbelt DVD Cases</option>
<option value="Dobbelt DVD Cases Pakke af 40 Stk">Dobbelt DVD Cases Pakke af 40 stk</option>
</select></td>
</tr>
<tr>
<td align="left" width="23%" valign="top"><font size="3"
face="Arial">Formular modtaget </font></td>
<td colspan="2" width="77%"><input type="checkbox" name="Formular" value="<%=strTekst10%>"></td>
</tr>
<tr>
<td align="left" width="23%" valign="top"><font size="3"
face="Arial">Betaling modtaget </font></td>
<td colspan="2" width="77%"><input type="checkbox" name="Betaling" value="<%=strTekst11%>">
<INPUT TYPE="text" NAME="Beløb" class="css" size="8" tabindex="1" value="<%=strTekst12%>"></td>
</tr>
<tr>
<td align="left" width="23%" valign="top"><font size="3"
face="Arial">Sendt </font></td>
<td colspan="2" width="77%"><input type="checkbox" name="Sendt" value="<%=strTekst13%>">
<input type="text" name="Tt" class="css" size="36" tabindex="1" value="<%=strTekst14%>"></td>
</tr>
<tr>
<td align="Left" valign="top" width="23%"><font
size="3" face="Arial">Besked:</font></td>
<td valign="top" width="77%"><textarea name="Besked" rows="4" cols="31" class="css" tabindex="4" value="<%=strTekst15%>"></textarea></td>
</tr>
<tr>
<td width="23%"></td>
<td colspan="2" width="77%">
<input type="submit" name="B1" value="Gem tekst" class="css" tabindex="5"></td>
</tr>
</table>
</center></div>
</form>
</font>
</body>
<%
Else
%>
<html>
<head>
<META NAME="Robots" CONTENT="NONE">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-store">
<title>Administration</title>
</head>
<body bgcolor=#ffffff text=#000000 link=#000080 alink=#000080 vlink=#000080>
<font face="Arial" size=5><b>Administration</b></font>
<hr>
<font face="Arial" size=2>
<b>Indlæg:</b>
<ul>
Klik på teksten for at redigere den, eller SLET for at slette den.
<p>
<%
Set ConnectDB = Server.CreateObject("ADODB.Connection")
Set CmdRecord = Server.CreateObject("ADODB.Recordset")
strSQLQuery = "DBQ=" & Server.MapPath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
ConnectDB.Open strSQLQuery
strSQL = "SELECT * FROM database ORDER BY id DESC;"
Set CmdRecord = ConnectDB.Execute(strSQL)
Do Until CmdRecord.Bof Or CmdRecord.Eof
%>
<tr><td width=15 valign="top"><a href="secher.asp?Mode=delete&id=<%=CmdRecord("id")%>"></a> -
<td width=99 valign="top"><a href="secher.asp?Mode=edittekst&id=<%=CmdRecord("id")%>">
<font face="Arial" size=2><%=CmdRecord("Qxl")%></font></a></td>
<td width=99 valign="top"><%=CmdRecord("Navn")%></td>
</tr><tr><td width=15 valign="top"> </td><td colspan="2"><hr></td></tr>
<%
CmdRecord.MoveNext
Loop
Set CmdRecord = Nothing
ConnectDB.Close: Set ConnectDB = Nothing
%>
</ul>
</font>
</body>
<%
End If
%>
