Der sker ikke noget som helst
Hej,Er der nogen der kan debugge det her?
<!--#include file="includes/db.asp"-->
<!--#include file="includes/generellefunktioner.asp"-->
<%
strIntro = Trim(RemoveHTML(request.form("intro")))
strKarakter = Trim(RemoveHTML(request.form("karakter")))
strForfatter = session("brugernavn")
strTitel = Trim(RemoveHTML(request.form("titel")))
if request.form("submitNyOpgave") <> "" then
if strIntro = "" then
strFejl = strFejl & "Du skal skrive en kort tekst om opgaven." & ","
elseif strTitel = "" then
strFejl = strFejl & "Du skal angive en titel for opgaven"
end if
if strFejl = "" then
%>
<!--#include file="includes/fileupload4inc.asp"-->
<%
Dim objDict
'Hent fil og evt. øvrige data
Set objDict = FileUpload("", 200000, Array("application/msword"), Array("doc"), Null, False, False)
strSti = objDict("FILEUPLOAD_FILENAME")
sql = "INSERT INTO opgaver(titel,intro,karakter,sti,forfatter) VALUES('" & strTitel & "','" & strIntro & "', " & strKarakter & ",'" & strSti & "','" & strForfatter & "')"
strInfo = "Upload af filen " & objDict("FILEUPLOAD_FILENAME") & " gik godt og vil nu være at finde i oversigten nå den er blevet godkendt."
'response.write sql
'response.end
conn.execute(sql)
end if
end if
'// Variabel til <title>
title = " andet » links » upload af opgave"
%>
<!-- #include file="includes/header.asp"-->
<form enctype="multipart/form-data" action="<%= Request.ServerVariables("SCRIPT_NAME") %>" method="post">
<table border="0" cellpadding="2" cellspacing="2">
<tr>
<td class="intro">I formularen nedenfor, har du mulighed for at uploade én opgave ad gangen.</td>
</tr>
<tr>
<td class="formular" valign="top">
Vedhæft opgaven<br />
<input name="fileupload_file" type="file" class="felter" /><br />
Karakter<br />
<select name="karakter" class="felter" />
<option value="00">00</option>
<option value="03">03</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="13">13</option>
<option value="14">Bestået</option>
<option value="14">Ikke bestået</option>
</select><br />
Opgavens titel<br />
<input type="text" name="titel" class="felter" /><br />
Skriv en kort tekst om opgaven<br />
<textarea name="intro" class="felter" /></textarea><br />
<input type="hidden" name="forfatter" value="<%=session("brugernavn")%>" />
<br />
<input type="submit" value="Upload opgave" class="knap" name="submitNyOpgave">
</td>
</tr>
<tr>
<td>
<% if strFejl <> "" then %>
<%call printFejl(strFejl)%>
<% elseif strInfo <> "" then %>
<p class="info"><%=strInfo%></p>
<% end if %>
</td>
</tr>
</table>
</form>
<!--#include file="includes/footer.asp"-->
Det er et uploadscript, men jeg kan ikke få det til at virke. Der sker ganske intet når jeg submitter, hverken fejlmeldinger, db indsættelse eller noget.
Det er lavet med udgangspunkt i dette script http://activedeveloper.dk/download/default.asp?mode=showdownload&id=430
og jeg har fået det til at virke selvstændigt :(
