Har meget brug for hjælp...!
Hej alle sammen jeg har et problem med min hjemmeside noget med noget uploade lort som jeg bare ikke kan få til at virke...! jeg sætter det har svar til 200 så håber jeg der er en eller anden der vil konstakt mig eller hjælpe mig igemmen det så jeg kan få det op at køremit problem:
siden ligger her http://opgavecenter.dk/opgavecenter2/
og nå man prøver på at uploade en opgave så virker det ikke en skid den uploader ikke noget men den skriver det på forsiden hvis man går ind under dansk eller sådan noget...!
det her skriver den nede for neden
Request object error 'ASP 0206 : 80004005'
Cannot call BinaryRead
/opgavecenter2/tilfoj.asp, line 167
Cannot call BinaryRead after using Request.Form collection.
Og det her står der i den fil tilfoj.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>opgaven på din harddisk ved at klikke på knappen Browse</title>
</head>
<body bgcolor="#E1E1E1">
<!-- #Include file="data.asp" -->
<p align="left"> </p>
<table border="0" cellPadding="0" cellSpacing="0" width="575">
<tbody>
<tr>
<td align="center">
<p align="left">opgaven på din harddisk ved at klikke på knappen
Browse / Gennemse. Når den rigtige opgave er valgt, udfyldes de
resterende oplysninger og herefter klikkes på knappen gem.<br>
<br>
<b>HUSK</b> at du skal beskrive opgaven grundigt, ellers bliver den
slettet og giver ingen point.</p>
<form action="tilfoj.asp?opgave=gem" method="post">
</form>
<table>
<tbody>
<tr>
<td width="35%">
<p align="left"><b>Dit Navn</b></p>
</td>
<td width="65%">
<p align="left"><input name="navn" size="20"></p>
</td>
</tr>
<tr>
<td width="35%">
<p align="left"><b>Skole type</b></p>
</td>
<td width="65%">
<p align="left"><input name="skole" size="20"></p>
</td>
</tr>
<tr>
<td width="35%">
<p align="left"><b>Vælg fil</b></p>
</td>
<td width="65%">
<p align="left">
<input name="fileupload" type="file" size="20"></p>
</td>
</tr>
<tr>
<td vAlign="top">
<p align="left"><b>Indtast beskrivelse</b></p>
</td>
<td>
<p align="left"><textarea cols="34" name="beskrivelse" rows="4"></textarea></p>
</td>
</tr>
<tr>
<td>
<p align="left"><b>Vælg fag</b></p>
</td>
<td>
<p align="left"><select name="fag" style="WIDTH: 180px">
<option selected value>--- Vælg fag ---</option>
<%
strSQl = "SELECT * FROM mapper"
Set rs = Conn.Execute(strSQL)
While NOT rs.EOF
%>
<option value="<%= rs("navn") %>"><%= rs("navn") %></option>
<%
rs.MoveNext
Wend
%>
</select></p>
</td>
</tr>
<tr>
<td>
<p align="left"><b>Vælg type</b></p>
</td>
<td>
<p align="left"><select name="opgtype" style="WIDTH: 180px">
<option selected value>--- Vælg type ---</option>
<option value="Stil">Stil</option>
<option value="Rapport">Rapport</option>
<option value="Notat">Notat</option>
<option value="Boganmeldelse">Boganmeldelse</option>
<option value="Projekt">Projekt</option>
<option value="Afhandling">Afhandling</option>
<option value="Analyse">Analyse</option>
<option value="Regneark">Regneark</option>
</select></p>
</td>
</tr>
<tr>
<td>
<p align="left"><b>karakter</b></p>
</td>
<td>
<p align="left"><input maxLength="2" name="karater" size="2"></p>
</td>
</tr>
<tr>
<td>
<p align="left"><b>Indtast evt. lærebog el. eksamenssæt</b></p>
</td>
<td>
<p align="left"><input name="billag" size="20"></p>
</td>
</tr>
<tr>
<td>
<p align="left"></td>
<td>
<table>
<tbody>
<tr>
<td>
<input type="submit" value="send"><a href="http://www.opgavecentralen.dk/NoJava.asp"><img border="0" src="img/button.gif" width="13" height="13"></a>
<b>Send opgaven</b>
</form>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
<%
If Request.Querystring("opgave") = "gem" Then
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM opgaver"
strFil = Request.Form("fileupload")
arrSplit = Split(strFil, """")
arrSplit = Split(strFil, "\")
strFilnavn = arrSplit(UBound(arrSplit))
rs.Open strSQL, Conn, 1, 3
rs.AddNew
rs("navn") = Request.Form("navn")
rs("skole") = Request.Form("skole")
rs("beskrivelse") = Request.Form("beskrivelse")
rs("fag") = Request.Form("fag")
rs("type") = Request.Form("opgtype")
rs("karater") = Request.Form("karater")
rs("billag") = Request.Form("billag")
rs("filnavn") = strFilnavn
rs("filtype") = Right(Request.Form("fileupload"),3)
rs("dato") = date()
rs("hits") = 0
rs.Update
Dim mySmartUpload
Dim intCount
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
intCount = mySmartUpload.Save("/opgaver")
Response.Write(intCount & " file(s) uploaded.")
Response.Clear
Response.Redirect("forside.asp?msg=Tak")
End If
%>
</body>
</html>
