stadig samme fejl...
paster lige koderne
dette er siden med formularen:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/gutternes.asp" -->
<%Session.lcid = 1030%>
<%
Dim rsLoggedUser__MMColParam
rsLoggedUser__MMColParam = "1"
If (Session("MM_Username") <> "") Then
rsLoggedUser__MMColParam = Session("MM_Username")
End If
%>
<%
Dim rsLoggedUser
Dim rsLoggedUser_numRows
Set rsLoggedUser = Server.CreateObject("ADODB.Recordset")
rsLoggedUser.ActiveConnection = MM_gutternes_STRING
rsLoggedUser.Source = "SELECT * FROM users WHERE Username = '" + Replace(rsLoggedUser__MMColParam, "'", "''") + "'"
rsLoggedUser.CursorType = 0
rsLoggedUser.CursorLocation = 2
rsLoggedUser.LockType = 1
rsLoggedUser.Open()
rsLoggedUser_numRows = 0
%>
<!-- AspUpload Code samples: odbc.asp -->
<!-- Saving files in the database via ODBC -->
<!-- Copyright (c) 2001 Persits Software, Inc. -->
<!--
http://www.persits.com -->
<HTML>
<BODY BGCOLOR="#FFFFFF">
<%
function dkDato(datoStr)
dkDato = Day(datoStr) & "-" & Month(datoStr) & "-" & Year(datoStr)
end function
%>
<h3>Saving Files in the Database via ODBC</h3>
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="odbc_upload.asp">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>File:<BR> </td>
<td><INPUT TYPE=FILE NAME="THEFILE"></td>
</tr>
<tr>
<td>Kategori:</td>
<td><select name="Category" id="Category">
<option value="Sommer">Sommer</option>
<option value="Vinter">Vinter</option>
</select></td>
</tr>
<tr>
<td>Titel</td>
<td><input name="Title" type="text" id="Title"></td>
</tr>
<tr>
<td>Description:</td>
<td><textarea name="Description" id="Description"></textarea></td>
</tr>
<tr>
<td><BR> </td>
<td><input name="IDuser" type="hidden" id="IDuser" value="<%=(rsLoggedUser.Fields.Item("IDuser").Value)%>">
<input name="Date" type="hidden" id="Date" value="<%=date()%>">
<input name="Time" type="hidden" id="Time" value="<%= left(Time(),5) %>"></td>
</tr>
<tr>
<td><input name="SUBMIT" type=SUBMIT value="Upload!"></td>
<td> </td>
</tr>
</table>
<P>
<BR>
</FORM>
</BODY>
</HTML>
<%
rsLoggedUser.Close()
Set rsLoggedUser = Nothing
%>
dette er siden med scriptet:
<%Session.lcid = 1030%>
<!-- AspUpload Code samples: odbc_upload.asp -->
<!-- Invoked by odbc.asp -->
<!-- Copyright (c) 2001 Persits Software, Inc. -->
<!--
http://www.persits.com -->
<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")
' Capture files
Upload.SaveVirtual "/images/upload"
' Obtain file object
Set File = Upload.Files("THEFILE")
If Not File Is Nothing Then
' Build ODBC connection string
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/db/gutterne.mdb")
' If you use SQL Server, the connecton string must look something like this:
' Connect = "Driver=SQL Server;Server=MYSRV;Database=master;UID=sa;PWD=xxx"
' Build SQL INSERT statement
SQL = "INSERT INTO myimages(ImageBlob, Filename, Filesize, userID, UploadDate, UploadTime, Category, Title, Description) VALUES(?, '"
SQL = SQL & File.Filename & "', '"
SQL = SQL & File.Size & "', '"
SQL = SQL & Replace(Upload.Form("IDuser"), "'", "''") & "', "
SQL = SQL & Replace(Upload.Form("Date"), "'", "''") & "', "
SQL = SQL & Replace(Upload.Form("Time"), "'", "''") & "', "
SQL = SQL & Replace(Upload.Form("Category"), "'", "''") & "', "
SQL = SQL & Replace(Upload.Form("Title"), "'", "''") & "', "
SQL = SQL & Replace(Upload.Form("Description"), "'", "''") & ")"
' Save to database
File.ToDatabase Connect, SQL
Response.Write "File saved."
Else
Response.Write "File not selected."
End If
%>
</BODY>
</HTML>
