<%
vID = Request.Querystring ("ID")
vTITLE = Request.Form("TITLE")
vPUBLISHER = Request.Form("PUBLISHER")
vPIC1 = Request.Form("PIC1")
vPIC2 = Request.Form("PIC2")
vPIC3 = Request.Form("PIC3")
vPUBLISHED = Request.Form("PUBLISHED")
vFORMAT = Request.Form("FORMAT")
vSALE = Request.Form("SALE")
vBYMAIL = Request.Form("BYMAIL")
vABOUT = Request.Form("ABOUT")
vCOMMENT = Request.Form("COMMENT")
vCOUNTRY = Request.Form("COUNTRY")
%>
<% If LCase(Request.Querystring("MODE")) = "save" Then %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database/siteinabox.mdb")
Conn.Open DSN
strSQL = "Update publications set "
strSQL = strSQL & "TITLE= '"&vTITLE&"', "
strSQL = strSQL & "PUBLISHER= '"&vPUBLISHER&"' "
strSQL = strSQL & "PIC1= '"&vPIC1&"', "
strSQL = strSQL & "PIC2= '"&vPIC1&"', "
strSQL = strSQL & "PIC3= '"&vPIC3&"', "
strSQL = strSQL & "PUBLISHED= '"&vPUBLISHED&"', "
strSQL = strSQL & "FORMAT= '"&vFORMAT&"', "
strSQL = strSQL & "SALE= '"&vSALE&"', "
strSQL = strSQL & "BYMAIL= '"&vBYMAIL&"', "
strSQL = strSQL & "ABOUT= '"&vABOUT&"', "
strSQL = strSQL & "COMMENT= '"&vCOMMENT&"', "
strSQL = strSQL & "COUNTRY= '"&vCOUNTRY&"' "
strSQL = strSQL & "WHERE ID = '" & vID & "'"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>
<% Else %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../database/siteinabox.mdb")
Conn.Open DSN
strSQL = "SELECT * FROM publications WHERE ID='" & vID & "'"
Set rs = Conn.Execute(strSQL)
Do
%>
<form method="post" action="update.asp?mode=save&id=<%=vID%>">
<table>
<tr>
<td>Titel:</td>
<td><input type="text" name="TITLE" value="<% Response.write rs("TITLE") %>"></td>
</tr>
<tr>
<td>Udgiver:</td>
<td><input type="text" name="PUBLISHER" value="<% Response.write rs("PUBLISHER") %>"></td>
</tr>
<tr>
<td>Billede 1:</td>
<td><input type="text" name="PIC1" value="<% Response.write rs("PIC1") %>"></td>
</tr>
<tr>
<td>Billede 2:</td>
<td><input type="text" name="PIC2" value="<% Response.write rs("PIC2") %>"></td>
</tr>
<tr>
<td>Billede 3:</td>
<td><input type="text" name="PIC3" value="<% Response.write rs("PIC3") %>"></td>
</tr>
<tr>
<td>Udgivet:</td>
<td><input type="text" name="PUBLISHED" value="<% Response.write rs("PUBLISHED") %>"></td>
</tr>
<tr>
<td>Format:</td>
<td><input type="text" name="FORMAT" value="<% Response.write rs("FORMAT") %>"></td>
</tr>
<tr>
<td>Salg:</td>
<td><input type="text" name="SALE" value="<% Response.write rs("SALE") %>"></td>
</tr>
<tr>
<td>Abonnement:</td>
<td><input type="text" name="BYMAIL" value="<% Response.write rs("BYMAIL") %>"></td>
</tr>
<tr>
<td>Beskrivelse:</td>
<td><input type="text" name="ABOUT" value="<% Response.write rs("ABOUT") %>"></td>
</tr>
<tr>
<td>Kommentar:</td>
<td><input type="text" name="COMMENT" value="<% Response.write rs("COMMENT") %>"></td>
</tr>
<tr>
<td>Land:</td>
<td><input type="text" name="COUNTRY" value="<% Response.write rs("COUNTRY") %>"></td>
</tr>
</table>
</form>
<%
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
<% End if %>
????????????????
/cotus
