Upload billede til profil

Hejsa!

Her er en form jeg bruger til tilmelding af ny profil:

---- KODE 1 START ----

<form ACTION=\"savenewinfo.asp\" METHOD=\"post\" id=\"form\" name=\"form\">

<table Border=\"0\" width=\"433\" style=\"border-collapse: collapse\" bordercolor=\"#111111\" cellpadding=\"0\" cellspacing=\"0\">
<tr>
<td width=\"140\"><font size=\"2\">Navn</font></td>
<td width=\"290\"><input size=\"40\" Name=\"navn\"></td>
</tr>
<tr>
<td width=\"140\"><font size=\"2\">Mail Adresse</font></td>
<td width=\"290\">
<input size=\"40\" Name=\"mail\"></td>
</tr>
<tr>
<td width=\"140\"><font size=\"2\">Telefon Nr.</font></td>
<td width=\"290\">
<input size=\"8\" Name=\"tele1\"></td>
</tr>

<tr>
<td width=\"140\"><font size=\"2\">Mobil Nr.</font></td>
<td width=\"290\">
<input size=\"8\" Name=\"tele2\"></td>
</tr>

<tr>
<td width=\"140\"><font size=\"2\">Postnr og By</font></td>
<td width=\"290\"><input size=\"40\" Name=\"postby\"></td>
</tr>

<tr>
<td width=\"140\"><font size=\"2\">Model</font></td>
<td width=\"290\"><input size=\"40\" Name=\"bilmodel\" value=\"BMW\"></td>
</tr>

<tr>
<td width=\"140\"><font size=\"2\">Type Bil</font></td>
<td width=\"290\"><input size=\"40\" Name=\"typebil\"></td>
</tr>

<tr>
<td width=\"140\"><font size=\"2\">Års Tal</font></td>
<td width=\"290\">
<input size=\"40\" Name=\"aar\"></td>
</tr>

<tr>
<td width=\"140\"><font size=\"2\">Km</font></td>
<td width=\"290\">
<input size=\"40\" Name=\"km\"></td>
</tr>

<tr>
<td width=\"140\"><font size=\"2\">Pris</font></td>
<td width=\"290\">
<input size=\"40\" Name=\"pris\"></td>
</tr>

<tr>
<td width=\"140\"><font size=\"2\">Beskrivelse af bilen</font></td>
<td width=\"290\"><textarea name=\"beskrivelse\" rows=\"6\" cols=\"30\"></textarea></td>
</tr>

<tr>
<td width=\"140\"><font size=\"2\">Dato i dag</font></td>
<td width=\"290\"><input size=\"40\" Name=\"AddDate\"></td>
</tr>

<tr>
<td width=\"140\"><font size=\"2\">Billed af bilen:</font></td>
<td width=\"290\">
<select size=\"1\" name=\"images\">
  <option>Ja</option>
  <option selected>Nej</option>
  </select><br>
<tr>
<td width=\"140\"><font size=\"2\">Billed af bilen:</font></td>
<td width=\"290\">
<input type=\"text\" name=\"imagesadresse\" size=\"40\" value=\"http://www.yepss.dk/images/logo.gif\" onfocus=\"if ( this.form.images.selectedIndex!=0 ) this.blur();\"></p><p>&nbsp;</p>
</td>
</tr>






<tr>
<td width=\"140\"><input size=\"40\" TYPE=\"submit\" Value=\"Opret\" id=\"Submit1\" name=\"Submit1\"><input TYPE=\"reset\" Value=\"Slet\" id=\"Reset1\" name=\"Reset1\"></td>
<td width=\"290\"></td>
</tr>

</table></form>

---- KODE 1 SLUT ----

Her er en kode jeg skal bruge sådan så brugeren kan uploade sit billede i stedet for at skulle skrive en URL til billede:

---- KODE 2 START ----

---------------------
ASP FIL: Uploadfile.asp
---------------------


<form METHOD=\"Post\" ENCTYPE=\"multipart/form-data\" ACTION=\"outputFile.asp\" id=\"form3\" name=\"form3\">
<input TYPE=\"file\" NAME=\"blob\"><br>
<input TYPE=\"submit\" value=\"Upload billede\" NAME=\"Enter\">

---------------------
ASP FIL: Upload.asp
---------------------

<%
Sub BuildUploadRequest(RequestBin)
    \'Get the boundary
    PosBeg = 1
    PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
    boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
    boundaryPos = InstrB(1,RequestBin,boundary)
    \'Get all data inside the boundaries
    Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString(\"--\")))
        \'Members variable of objects are put in a dictionary object
        Dim UploadControl
        Set UploadControl = CreateObject(\"Scripting.Dictionary\")
        \'Get an object name
        Pos = InstrB(BoundaryPos,RequestBin,getByteString(\"Content-Disposition\"))
        Pos = InstrB(Pos,RequestBin,getByteString(\"name=\"))
        PosBeg = Pos+6
        PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
        Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
        PosFile = InstrB(BoundaryPos,RequestBin,getByteString(\"filename=\"))
        PosBound = InstrB(PosEnd,RequestBin,boundary)
        \'Test if object is of file type
        If  PosFile<>0 AND (PosFile<PosBound) Then
            \'Get Filename, content-type and content of file
            PosBeg = PosFile + 10
            PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
            FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
            \'Add filename to dictionary object
            UploadControl.Add \"FileName\", FileName
            Pos = InstrB(PosEnd,RequestBin,getByteString(\"Content-Type:\"))
            PosBeg = Pos+14
            PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
            \'Add content-type to dictionary object
            ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
            UploadControl.Add \"ContentType\",ContentType
            \'Get content of object
            PosBeg = PosEnd+4
            PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
            Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
            Else
            \'Get content of object
            Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
            PosBeg = Pos+4
            PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
            Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
        End If
        \'Add content to dictionary object
    UploadControl.Add \"Value\" , Value   
        \'Add dictionary object to main dictionary
    UploadRequest.Add name, UploadControl   
        \'Loop to next object
        BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
    Loop

End Sub

\'String to byte string conversion
Function getByteString(StringStr)
For i = 1 to Len(StringStr)
    char = Mid(StringStr,i,1)
    getByteString = getByteString & chrB(AscB(char))
Next
End Function

\'Byte string to string conversion
Function getString(StringBin)
getString =\"\"
For intCount = 1 to LenB(StringBin)
    getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function
%>

---------------------
ASP FIL: Outputfile.asp
---------------------

<%
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject(\"Scripting.Dictionary\")
BuildUploadRequest(RequestBin)
contentType = UploadRequest.Item(\"blob\").Item(\"ContentType\")
filepathname = UploadRequest.Item(\"blob\").Item(\"FileName\")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,\"\\\"))
value = UploadRequest.Item(\"blob\").Item(\"Value\")
Set ScriptObject = Server.CreateObject(\"Scripting.FileSystemObject\")
\'pathEnd = Len(Server.mappath(Request.ServerVariables(\"PATH_INFO\")))-14
\'Response.Write (Request.ServerVariables(\"PATH_INFO\"))
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(\"\"&filename))
For i = 1 to LenB(value)
    MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close    %>

<!--#include file=\"upload.asp\"-->

---- KODE 2 SLUT ----

Ja kode 1 virker til at tilføje informationerne til databasen.
Kode 2 virker til at uploade en fil.
Men er der ikke en der kan hjælpe mig med at sætte disse 2 script sammen ?
Sådan så brugeren kan udfylde sine informaioner og samtidlig kan vælge hvor på sin harddisk billede der skal uploades er hvis altså brugeren vil have billede på.
Altså sådan så hvis bruger svare JA til at have billede på så skal informationern om billedes navn gemmes i databasen ligesom de andre oplysninger om brugeren gør.
Hvis brugeren svare NEJ til billede skal den ikke gemme nogle oplysninger om billede på harddisken.

HJÆLP :)