Just nu i M3-nätverket
Jump to content

HJÄLP - saveskriptet för uppdatering av.


Johan

Recommended Posts

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...