ChiliASP - upload
Jeg prøver igen...-----------------------
Hej
Jeg sidder og skal lave et upload script, hvor man angiver et billed og skriver noget tekst.
Billedet bliver så gemt, og teksten ryger i en DB.
Problemet er at man VIST nok ikke kan lave en request.form("text"), før man henter billedet. Og heller ikke den anden vej rundt.
Når jeg prøver at lave et request.form("text") for jeg at vide at formen ikke indeholder et file element, og hvis jeg prøver at lave request.form efter jeg har gemt billedet, for jeg denne her i hovedet: Cannot use Request.Form collection after calling BinaryRead.
What to dooooooo ?????
-----------------------
Her er min kode :
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<%
Dim objConn
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost;DATABASE=mitdomaene_dk;UID=mitdomaene_dk;PWD=blabla;"
objConn.Open
%>
<html>
<head>
<title>Untitled</title>
</head>
<body>
<%
Response.Expires = 0
Set fbase = Server.CreateObject("Chili.Upload.1")
if(Request.TotalBytes > 100000) Then
Response.write "Filen er for stor."
Else
fbase.SizeLimit = 100000
arrSplit = Split(fbase.SourceFileName, "\") 'Opdel streng ved \"
strTemp = arrSplit(UBound(arrSplit)) 'Næstsidste indholder filnavn
fbase.SaveToFile("min_lange_lange_path/img/live/" & strTemp)
desc = Request.Form("newText") ' Det er her det går galt
sql = "INSERT INTO `LIVE` ( `ID` , `TEXT` , `PATH`) VALUES ('', '" & Replace(Replace(Replace(desc, vbCrLf, "<br>"),chr(34), ""),"'", "") & "', '" & strTemp & "')"
objRS.Open sql, objConn, 3,3
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
Filen <%=fbase.SourceFileName%> Er nu uploaded til live sectionen !
<%
End If
%>
</body>
</html>
