flytte =news("Smallphoto") igennem form
har 3 sider,side 1
første side henter dataen fra tabellen..
navn osv. også <%=news("Smallphoto")%>
side 2
dataen vises og ændres og sendes til side 3.
alt bliver sendt korrekt og gemt på side 3
men <%=news("Smallphoto")%> bliver blank
side 3
dataen bliver gemt i anden tabel end det
hentes fra på side 1.
lidt kode ******************
side 1
<%
dim mode, user
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../../db/evidb.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
user = Request.form("Nickname")
%>
<html>
<% strSQL = "SELECT * FROM members WHERE NickName='" & request.querystring("Nickname") & "'"
Set news = myConn.Execute(strSQL)
%>
' alt data hentes og bliver vist
' bla <Img Src="<%=news("Smallphoto")%>" width="60" height="90">
' sendes til side 2 via
<select name="Nyrank" size="1" id="Nyrank">
<option value="General">General</option>
<option value="Squad Commander">Squad Commander</option>
<option value="Unit Commander">Unit Commander</option>
<option value="Unit leader">Unit Leader</option>
<option value="Unit Member">Unit Member</option>
</select>
<input type="hidden" name="Nickname" value="<%=news("Nickname")%>">
<input type="hidden" name="Firstname" value="<%=news("Firstname")%>">
<input type="hidden" name="Lastname" value="<%=news("Lastname")%>">
<input type="hidden" name="Proffession" value="<%=news("Proffession")%>">
<input type="hidden" name="Rankname" value="<%=news("Rankname")%>">
<input type="hidden" name="Breed" value="<%=news("Breed")%>">
<input type="hidden" name="Gender" value="<%=news("Gender")%>">
<input type="hidden" name="Smallphoto" value="<%=news("Smallphoto")%>">
<input type="reset" name="Reset" value="Reset">
<input name="Submit" type="submit" id="Submit" value="Submit">
*****************************************
side 2
*****************************************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include virtual="nyheder/forbindelse.asp"-->
<%
set amember = server.CreateObject("ADODB.Recordset")
amember.open "Promotion", database,2,2 %>
<%
amember.addnew
amember("Firstname") = request.QueryString("Firstname")
amember("Nickname") = request.QueryString("Nickname")
amember("Lastname") = request.QueryString("Lastname")
amember("Rankname") = request.QueryString("Rankname")
amember("Proffession") = request.QueryString("Proffession")
amember("Gender") = request.QueryString("Gender")
amember("Breed") = request.QueryString("Breed")
amember("Smallphoto") = request.QueryString("Smallphoto")
amember("Nyrank") = request.QueryString("Nyrank")
amember("Promotion") = "yes"
amember.update
response.Redirect("lem.htm")
%>
****************************************
side 3, viser bare indholdet.
alt er ok. untaget billedet som
er blank, i db er der ikke gemt data, som i
de andre poster
