HJÄLP - saveskriptet för uppdatering av.

[Johan]

databas. Här har jag en del av koden som fungerar som min edit-sida. Hur mycket jag än försöker så får jag inte något save-script att fungera för att uppdatera från denna asp sida

 

KOD FÖR edit.asp

--------------------------->

<%

 

Set Connection = Server.CreateObject("ADODB.Connection")

Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\databas.mdb"

SQLStmt = "SELECT * FROM Login"

Set RS = Connection.Execute(SQLStmt)

 

 

%>

 

<form method="POST" action="save.asp">

 

<input type="hidden" name="ID" value="<% =ID %>"><table border="0" width="400" cellspacing="1">

<tr>

<td bgcolor="#808080"><font face="Arial" color="#FFFFFF"><small><strong>Namn</strong></small></font></td>

<td bgcolor="#E4E3D3"><input type="text" name="Name" size="30"

value="<%=session("Name")%>"></td>

</tr>

<tr>

<td bgcolor="#808080"><font face="Arial" color="#FFFFFF"><small><strong>Lösenord</strong></small></font></td>

<td bgcolor="#E4E3D3"><input type="text" name="Password" size="30"

value="<%=session("Password")%>"></td>

</tr>

<tr>

<td bgcolor="#808080"><font face="Arial" color="#FFFFFF"><small><strong>Nick</strong></small></font></td>

<td bgcolor="#E4E3D3"><input type="text" name="poze_nick" size="30"

value="<%=session("poze_nick")%>"></td>

</tr>

<tr>

<td bgcolor="#808080"><font face="Arial" color="#FFFFFF"><small><strong>Person beskrivning</strong></small></font></td>

<td bgcolor="#E4E3D3"><textarea rows="3" name="About" cols="30"><%=session("About")%></textarea></td>

</tr>

</table>

<input type="submit" value="Save User Info">

 

</form>

 

 

<%

RS.Close

Set RS = Nothing

%>

 

 

-----------------------------<

 

HJÄLP MIG SNÄLLA att skriva ett save-script.....klarar det inte själv!

 

/ johan

[peppelorum]

Detta borde räcka..

 

<%

name = Replace(Request("name"), "'", "''")

telefon = Replace(Request("telefon"), "'", "''")

ort = Replace(Request("ort"), "'", "''")

epost = Replace(Request("epost"), "'", "''")

rubrik = Replace(Request("rubrik"), "'", "''")

beskrivning = Replace(Request("beskrivning"), "'", "''")

pris = Replace(Request("pris"), "'", "''")

id = Request("id")

 

Set Connection = Server.CreateObject("ADODB.Connection")

 

Connection.Open "DSN=annons"

 

SQLStmt = "UPDATE Annonser "

SQLStmt = SQLStmt & "SET name='" & name & "', telefon='" & telefon & "', ort='" & ort & "', epost='" & epost & "', rubrik='" & rubrik & "', beskrivning='" & beskrivning & "', pris='" & pris & "' "

SQLStmt = SQLStmt & "WHERE Annonser.Id=" & id & " "

 

Set RS = Connection.Execute(SQLStmt)

%>

 

Men du använder en DSN-less databas koppling så glöm inte att ändra min DSN.

 

Sen så är det bara att ändra mina fält till dina så borde det stämma.

[Johan]

TACK Tack!!

 

Det här forumet är superbra!! Fungerar nu=)