Jag vill ha så att filen får ett specielt namn. Så om filen heter jocke.gif så får den ID:t på personen som laddar upp bilden från det här värdet <%=Session("ID")%> Och kan man göra så att om filen som laddas upop måste vara en gif bild



<%@EnableSessionState=True%>
<%Response.Buffer=True%>
<%Response.Expires=0

UPLOAD_PATH = Server.MapPath("images\profil_bilder")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = Fso.getFolder(UPLOAD_PATH)

If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then
Set Upload = get_upload_files()
fcontent = Upload("upload").Item("content")
If Fso.FileExists(UPLOAD_PATH & "\" & extract_filename(Upload("upload").Item("filename"))) Then
Set File = Fso.CreateTextFile(UPLOAD_PATH & "\" & extract_filename(Upload("upload").Item("filename")))
else
Set File = Fso.CreateTextFile(UPLOAD_PATH & "\" & extract_filename(Upload("upload").Item("filename")))
End If
For i = 1 to LenB(fcontent)
File.Write chr(AscB(MidB(fcontent, i, 1)))
Next
File.Close: Set File = Nothing
Session("go") = extract_filename(Upload("upload").Item("filename"))
Session("visa") = "ok"
Response.Redirect "change_bild.asp?bildID='" & Session("ID") & "&sidoID=28"'""
End If%>

<!-- #include file="adovbs.inc" -->

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/db.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Visa = "SELECT * FROM tblUsers WHERE ID = "&Session("ID") & " "
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
%>

<!-- #include file="top1.inc" -->

<form name="frmUpload" method="post" enctype="multipart/form-data" action="change_bild.asp?bildID=<%=Session("ID")%>&sidoID=28">

<table width="100%">
<tr>
<td width="50%">
<input type="file" name="upload">
<td align="right" valign="middle" width="50%">
<img src="<%=RecSet("bild")%>" width="80" height="100" border="1">
</tr>
</table>
</table>

<!-- #include file="bottom2.inc" -->
<!-- #include file="change_meny.inc" -->

<%
Function get_upload_files()
Set upload_object = Server.CreateObject("Scripting.Dictionary")
request_binaries = Request.BinaryRead(Request.TotalBytes)
position_start = 1
position_end = InstrB(position_start, request_binaries, get_byte_string(chr(13)))
boundary = MidB(request_binaries, position_start, (position_end - position_start))
boundary_pos = InstrB(1, request_binaries, boundary)

Do Until (boundary_pos = InstrB(request_binaries, boundary & get_byte_string("--")))
If Not(Response.IsClientConnected) Then Response.End

position_start = (InstrB(InstrB(boundary_pos, request_binaries, get_byte_string("Content-Disposition")), request_binaries, get_byte_string("name=")) + 6)
position_end = InstrB(position_start, request_binaries, get_byte_string(chr(34)))

name = get_string(MidB(request_binaries, position_start, (position_end - position_start)))
pos_file = InstrB(boundary_pos, request_binaries, get_byte_string("filename="))

If ((pos_file <> 0) AND (pos_file < InstrB(position_end, request_binaries, boundary))) Then
upload_object.Add name, Server.CreateObject("Scripting.Dictionary")

position_start = (pos_file + 10)
position_end = InstrB(position_start, request_binaries, get_byte_string(chr(34)))
upload_object.item(name).Add "filename", get_string(MidB(request_binaries, position_start, (position_end - position_start)))

position_start = (InstrB(position_end, request_binaries, get_byte_string("Content-Type:")) + 14)
position_end = InstrB(position_start, request_binaries, get_byte_string(chr(13)))
upload_object.item(name).Add "content-type", get_string(MidB(request_binaries, position_start, (position_end - position_start)))

position_start = (position_end + 4)
position_end = InstrB(position_start, request_binaries, boundary) - 2
upload_object.item(name).Add "size", ((position_end - position_start))
upload_object.item(name).Add "content", MidB(request_binaries, position_start, (position_end - position_start))
End If
boundary_pos = InstrB(boundary_pos + LenB(boundary), request_binaries, boundary)
Loop

Set get_upload_files = upload_object
End Function

Function get_byte_string(str)
For cnt = 1 to Len(str)
get_byte_string = get_byte_string & chrB(AscB(Mid(str, cnt, 1)))
Next
End Function

Function get_string(str)
For cnt = 1 to LenB(str)
get_string = get_string & chr(AscB(MidB(str, cnt, 1)))
Next
End Function

Function extract_filename(filename)
extract_filename = Right(filename, Len(filename) - InStrRev(filename, "\", -1, 1))
End Function
%>

<%
RecSet.close
Connect.close
%>

----------------------- info.asp --------------------------


<!-- #include file="adovbs.inc" -->

<%
IF Request.QueryString("DO") = "SKICKA" THEN

'###### LITE SAKER ######

IF Trim(Request.Form("namn")) = "" THEN
Session("fel")= "Du måste fylla i NAMN"
ElseIF Trim(Request.Form("kommentar")) = "" THEN
Session("fel")= "Du måste fylla i en KOMMENTAR"
END IF

IF Session("fel") <> "" Then
Response.Redirect "info.asp?DO=SKRIV"
END IF

'##### SLUT #####

'####### ANNAT ######

text = Request.Form("kommentar")
text = server.HTMLEncode(text)
text = Replace(text,vbCrLf,"<br>")


namn = server.HTMLEncode(Request.Form("namn")) 'Så slipper man jobbigt folk!
epost = server.HTMLEncode(Request.Form("epost")) 'Så slipper man jobbigt folk!
hemsida = server.HTMLEncode(Request.Form("hemsida")) 'Så slipper man jobbigt folk!

'################ SLUT ################

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("info.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From gb"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet.ADDNEW

RecSet("NAMN") = namn
RecSet("EPOST") = epost
RecSet("HEMSIDA") = hemsida
RecSet("KOMMENTAR") = text
RecSet("IP") = Request.ServerVariables("REMOTE_ADDR")
RecSet("DATUM") = NOW()

RecSet.UPDATE

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "klart.asp"

END IF
%>

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body bgcolor="#CCCCCC" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="#000000" vlink="#000000" alink="#000000">
<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="6" color="#000000"><b>
<% IF Request.QueryString("DO") <> "READ" THEN %>
</b></font><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><br>
<br>
<br>
</font></p>
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b>
<%
IF Session("fel") <> "" THEN
Response.Write Session("fel")
Session("fel") = ""
End IF
%>
</b> </font> </div>
<form name="form1" method="post" action="info.asp?DO=SKICKA">
<div align="center">
<p><font size="2" face="Verdana, Arial, Helvetica, sans-serif">H&auml;r m&aring;ste
du fylla i lite information om dig. Som sedan kommer publeceras p&aring;
min sida.</font></p>
<table width="400" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="143"> <font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="namn" size="25" maxlength="25">
</font></td>
<td width="249"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">NAMN</font></td>
</tr>
<tr>
<td width="143"> <font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="epost" size="25" maxlength="50">
</font></td>
<td width="249"><font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">EPOST
</font></td>
</tr>
<tr>
<td width="143"> <font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
<input type="text" name="hemsida" size="25" maxlength="50" value="<%=Session("go")%>" disabled>
<input type="hidden" name="hemsida" value="<%=Session("go")%>">
</font></td>
<td width="249"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000">NAMN
P&Aring; FILEN</font></td>
</tr>
<tr>
<td colspan="2"> <font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
<textarea name="kommentar" cols="40" rows="4"></textarea>
INFO OM FILEN</font></td>
</tr>
<tr>
<td width="143"> <font size="1" color="#000000" face="Verdana, Arial, Helvetica, sans-serif">
<input type="submit" name="Submit" value="Spara" alt="Posta ditt inl&auml;gg" border = "0">
</font></td>
<td width="249">&nbsp;</td>
</tr>
</table>
</div>
</form>
<p align="center">

---------- info.asp -------------

Är onödig så skit i den.

Ingen som kan? som sagt så är det andra inlägget inget att bry sig om det är bara själva frågan och koden under frågan. Inte det som är under --------- info.asp ---------