formular, gemme opslag tabel
jeg har en side der uploader et billede samt gemmer filnavnet i en database. det virker fint nok. Men jeg har prøvet at få den til at gemme et idnummer(opslag fra en tabel) sammen med filnavnet og kan ikke rigtigt få det til at fungere.upload.asp
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("/database/db1.mdb")
mode = Request.QueryString("mode")
scriptname = Request.ServerVariables("SCRIPT_NAME")
%>
<HTML>
<BODY BGCOLOR="white">
<H1>aspSmartUpload : Sample 2</H1>
<HR>
<FORM METHOD="POST" ACTION="/upload2.asp" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
<form name="myForm" method="post" action="/upload2.asp" ENCTYPE="multipart/form-data">
<select name="vareNR" style="width:343px">
<%
set rs = conn.execute("select * from fejl order by id")
do while not rs.eof
response.write "<option value='"& rs("id") &"'>"& rs("id")
rs.MoveNext
loop
%>
</select>
</p>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>
</BODY>
</HTML>
upload2.asp
<%
Dim mySmartUpload,file
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("/database/db1.mdb")
mode = Request.QueryString("mode")
scriptname = Request.ServerVariables("SCRIPT_NAME")
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
For each file In mySmartUpload.Files
If not file.IsMissing Then
file.SaveAs("c:\1\" & file.FileName)
Conn.execute("Insert Into filer (url) Values ('C:\1\" & file.FileName &"')")
End If
Next
%>
