3 svar · 163 visningar · startad av AG
När jag försöker uppdatera med denna kod så vill det sig inte, den visaringet error men det ändras ej i dataabsen.
Kom gärna med andra synpunkter hur denna kod skulle kunna förbättras, tror problemet ligger i aspn.
<%
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\cgi-bin/webmr321cba.mdb")
If len(request.querystring("value"))> 1 then
tabort = "DELETE FROM lankar where id =" & request.querystring("id")
connection.execute(tabort)
end if
If len(request.querystring("option"))> 1 then
modifiera = "UPDATE lankar SET lanktext = '" & request.querystring("lanktext") & "', lank= '" & request.querystring("lank") & "', lankbeskrivning = '" & request.querystring("lankbeskrivning") & "' where id =" & request.querystring("id")
connection.execute(modifiera)
end if
SQLl = "SELECT * FROM lankar order by id desc"
Set lank = Connection.Execute(SQLl)
%>
<html>
<body>
<% If len(request.querystring("value"))= 1 then %>
<form method="get" action="lankar.asp">
<input type="hidden" value="2" name="option">
<input type="hidden" value="<%=lank("id")%>" name="id">
<input type="text" value="<%=lank("lanktext")%>" name="lanktext"><br>
<input type="text" value="<%=lank("lank")%>" name="lank"><br>
<input type="text" value="<%=lank("lankbeskrivning")%>" name="lankbeskrivning"><br>
<input type="image" src="bilder/laggtill.jpg">
</form>
<% end if %>
<table>
<%
Do until lank.eof
%>
<tr><td><%=lank("lank")%></td><td> </td><td><a href="lankar.asp?value=1&id=<%=lank("id")%>"><img src="bilder/laggtill.jpg" border="0"></a></td><td><a href="lankar.asp?value=2&id=<%=lank("id")%>"><img src="bilder/radera.jpg" border="0"></a></td><td></td></tr>
<%
lank.movenext
loop
%>
</table>
</body>
</html>
<%
lank.close
set lank = nothing
Connection.close
set Connection = nothing
%>
Andreas
Borde det inte vara:
If len(request.querystring("value"))> 0 then
Och
If len(request.querystring("option"))> 0 then
Beroende på vad du skickar med...
------------------
PC-älskare prasslar i säven, och har malt i ryggen
www.webeye.nu
Är du med i facket?
Tackar Vide det fungerar numer utmärkt :)
Då kan jag ta en liknande fråga i samma tråd.
Hur gör jag vill att tex value måste vara en text tex modify
hur får man det då att fungera det går ju inte med.
If len(request.querystring("option"))= delete then
sånt fungerar ju inte, varför, eller rättaresagt hur får man det att fungera :)
Andreas
Hur menar du?
If len(request.querystring("value")) = "modify" then
???
------------------
PC-älskare prasslar i säven, och har malt i ryggen
www.webeye.nu
Är du med i facket?
[Redigerat av Vide den 19 aug 2000]
