jo det går så här , fast jag gjorde om hela Jag menar bilderna hamnar i en mapp men deras namn hamnar i databasen, så ser den ut:
<!--#include file="Loader.asp"-->
<%
Response.Buffer = True
' load object
Dim load
Set load = new Loader
' calling initialize method
load.initialize
' File binary data
Dim fileData
fileData = load.getFileData("file")
' File name
Dim fileName
fileName = LCase(load.getFileName("file"))
' File path
Dim filePath
filePath = load.getFilePath("file")
' File path complete
Dim filePathComplete
filePathComplete = load.getFilePathComplete("file")
' File size
Dim fileSize
fileSize = load.getFileSize("file")
' File size translated
Dim fileSizeTranslated
fileSizeTranslated = load.getFileSizeTranslated("file")
' Content Type
Dim contentType
contentType = load.getContentType("file")
' No. of Form elements
Dim countElements
countElements = load.Count
' Value of text input field "datum"
Dim datum
datum = load.getValue("datum")
' Value of text input field "kommun"
Dim kommun
kommun = load.getValue("kommun")
' Value of text input field "namn"
Dim namn
namn = load.getValue("namn")
' Value of text input field "telefon"
Dim telefon
telefon = load.getValue("telefon")
'\*\*\*\*\*\*\*
' Value of text input field "rubrik"
Dim rubrik
rubrik = load.getValue("rubrik")
' Value of text input field "epost"
Dim epost
epost = load.getValue("epost")
' Value of text input field "kategori"
Dim kategori
kategori = load.getValue("kategori")
'===kolla den senare=====
Dim pathToFile
pathToFile = Server.mapPath("uploaded/") & "\" & fileName
' Uploading file data
Dim fileUploaded
fileUploaded = load.saveToFile ("file", pathToFile)
' destroying load object
Set load = Nothing
%>
<html>
<head><link rel="stylesheet" href="pon.css" type="text/css">
<title>Inserts Images into Database</title>
</head>
<body><div id="content">
\<table width="600" border="0" align="center"\>
\<tr\>
\<td\>Datum\</td\>\<td\>\<%= now %\>\</td\>
\</tr\>
\<tr\>
\<td\>bild\</td\>\<td\>\<%= fileName %\>\</td\>
\</tr\>\<tr\>
\<td\>Ort\</td\>\<td\>\<%= kommun %\>\</td\>
\</tr\>\<tr\>
\<td\>Namn\</td\>\<td\>\<%= namn %\>\</td\>
\</tr\>\<tr\>
\<td\>Telefon\</td\>\<td\>\<%= telefon %\>\</td\>
\</tr\>\<tr\>
\<td\>Rubrik\</td\>\<td\>\<%= rubrik %\>\</td\>
\</tr\>\<tr\>
\<td\>Epost\</td\>\<td\>\<%= epost %\>\</td\>
\</tr\>\<tr\>
\<td\>Kategori\</td\>\<td\>\<%= kategori %\>\</td\>
\</tr\>\<tr\>\</table\>\<br\>
\<br\>
\<p style="padding-left:220;"\>
\<%= namn %\>! Tack för besöket\<br\>
\<%
'======================kopling härifrån==================
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("omni.mdb")
' detta är hämtas från form-en från insertx.asp
datum =now
filename = Request.Form("FileName")
Kommun = Request.Form("kommun")
Namn = Request.Form("namn")
Epost = Request.Form("epost")
Telefon = Request.Form("telefon")
Kategori = Request.Form("kategori")
Anno = Request.Form("anno")
Rubrik = Request.Form("rubrik")
'deklarea som man vill lägga in i databasen
SQL = "Insert Into files(filename,kommun,namn,epost,telefon,kategori,anno,rubrik,datum) Values ('"& filename &"','"& Kommun &"','"& Namn &"','" & epost & "','" & telefon & "','" & kategori & "','" & anno & "','" & rubrik & "','" & datum & "')"
'nedre raden tillhör kopplingen och viktigt!
Set rs = Conn.Execute(SQL)
Set rs = nothing
'======================slut=====================
If Err.number = 0 Then
Response.Write "Insertion into Database complete ...\<br\>"
Else
Response.Write "Välkommen åter ...\<br\>"
End If
%>
</DIV>
</body>
</html>
