Hey, og på forhånd tak.
Har 2 spørgsmål, eller ting jeg søger hjælp til:
1. Er der nogen der har en URL til en side hvor de rigtigt grundigt
gennemgår SQL sættninger.
2. Nu har jeg rodet med dette dokument i nogle dage, elendig som jeg er til
asp, er jeg stadig ikke kommet fejlen til livs.
Er der nogen der kan hjælpe mig, evt. med en god forklaring eller en URL til
en forklaring.
Håber der er en af jer, der har tid til lige at kikke på min kode.
Jeg regner med at fejlen ligger omkring SQL sætningerne eller de 3 steder
hvor jeg requester Querystringen "id".
Forklaring på hvordan min side skulle virke:
- nyheden som har tilsvarende ID bliver skrevet i en form, det kan så
redirgers og updates. Id kommer fra en anden side, og bliver skrevet i en
Querystring.
og endnu engang tak for at du læser min post.
Koden:
--------------------------------
<%
Set oConn = Server.CreateObject("ADODB.Connection")
sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data
Source=\\premfs7\sites\premium2\haamann\database\retaliant.mdb;" & _
"Persist Security Info=False"
oConn.Open(sConnection)
strSQL = "Select * From news Where Id = " & Request.Querystring("id")
Set rs = oConn.Execute(strSQL)
Response.Write "<form method=POST
action=""update_news.asp?mode=tilfojet&id=" & Request.Querystring("id") & "
style=font-family: Verdana; font-size: 8pt color=ffffff onSubmit=><font
size=4><font color=#FFFFFF>Update selected news:</font><br><br><div
align=left><table border=0 cellspacing=0 cellpadding=0><tr><td
valign=top><font face=Verdana size=1 color=#FFFFFF><b>Head
line</b></font><font size=4><font face=Verdana size=1
color=#FFFFFF><b>:</b></font><b><font face=Verdana size=1
color=#FF0000>*</font></b><font face=Verdana size=1 color=#FFFFFF><b><br>"
' Head
Response.Write "<input type=text name=head value=""" & rs("head") & """
size=50> </b></font></font></td>"
Response.Write "<td valign=top><font face=Verdana size=1
color=#FFFFFF><b> </b></font></td><td valign=top></td><td
valign=top></td></tr></table></div><font color=#FFFFFF><br></font><table
border=0 cellspacing=0 cellpadding=0><tr><td valign=top><font face=Verdana
size=1 color=#FFFFFF><b>News</b></font><font color=#FFFFFF><font
face=Verdana size=1><b>:</b></font></font><font size=4><b><font face=Verdana
size=1 color=#FF0000>*</font></b></font><font color=#FFFFFF><font
face=Verdana size=1> <b><br>"
' News
Response.Write "</b></font><textarea rows=6 cols=60 name=news value=" &
rs("news") & "></textarea></font></td>"
Response.Write "<td valign=top><font face=Verdana size=1
color=#FFFFFF><b> </b></font></td><td valign=top><font
face=Verdana size=1
color=#FFFFFF><b> <br> </b></font></td></tr></table><font
size=4></font><div align=left><br><table border=0 cellspacing=0
cellpadding=0><tr><td valign=top>"
Response.Write "<font face=Verdana size=1 color=#FFFFFF><b>Your
name</b></font><font size=4><font face=Verdana size=1
color=#FFFFFF><b>:</b></font><b><font face=Verdana size=1
color=#FF0000>*</font></b><font face=Verdana size=1 color=#FFFFFF><b><br>"
' Name
Response.Write "<input type=text name=name value=""" & rs("name") & """
size=20> </b></font></font></td>"
oConn.Close
Set oConn = Nothing
%>
Anden del af koden:
------------------------------
<% if mode ="tilfojet" then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("../../database/retaliant.mdb")
Dim strSQL
strSQL = "Update news set "
strSQL = strSQL & "head= '" & Replace(Request.Form("head"), "'", "''") & "',
"
strSQL = strSQL & "news= '" & Replace(Request.Form("news"), "'", "''") & "',
"
strSQL = strSQL & "name= '" & Replace(Request.Form("name"), "'", "''") & "'
"
strSQL = strSQL & " Where Id = " & Request.Querystring("id")
myConn.Execute strSQL
myConn.Close
Set myConn = Nothing
Response.redirect "control_center.asp"
%>
<% end if %>
-------------------------------------------------------------------------
Mvh. Matthiaz
Sætter stor pris på de mennesker som sidder her på usenet og hjælper andre
folk.
Håber at jeg også kan hjælpe til en dag, når jeg forstår det her asp :)