Jag har nu 2 forms. Ett för att skriva in Information om tävlingar och ett för att ladda upp html filer med resultat.
<%
Case "addform"
%>
<form name="" method="post" action="Mall.asp?cmd=addsubmit">
Namn, Vad tävlingen heter.
<br>
<input type="text" name="Namn" size="50">
<br>
<br>
Datum, det datum då tävlingen ska spelas-.
<br>
<input type="text" name="Datum" size="50">
<br>
<br>
Jourspelare om någon finns annars lämnas detta blankt.
<br>
<input type="text" name="Jour" size="50">
<br>
<br>
Spelform, Typ Barometer, LAgtävling Imp, Across the Field.
<br>
<input type="text" name="Spelform" size="50">
<br>
<br>
Ansvarig, Ansvarig för tävlingen eller Tävlingsledare:<br>
<input type="text" name="Ansvarig" size="50">
<br>
<br>
Övrig Info, Om det behövs föranmälan eller om det är en annan dag än planerat.<br>
<input type="text" name="Anmarkning" size="50">
<br>
<br>
<input type="submit" value="Skicka">
</form>
<%
Case "addsubmit"
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "INSERT INTO Mall (Namn, Datum, Jour, Spelform, Ansvarig, Anmarkning) VALUES ('" & CharConvert(Request.Form("Namn")) & "', '" & CharConvert(Request.Form("Datum")) & "', '" & Request.Form("Jour") & "', '" & Request.Form("Spelform") & "', '" & Request.Form("Ansvarig") & "', '" & Request.Form("Anmarkning") & "')"
rs.Open SQL, OBJdbConnection, 3, 3
Response.Redirect("Mall.asp")
%>
Den koden använder jag för att skriva in information om tävlingar och lägga till nya tävlingar. För att ladda upp resultat använder jag följande kod:
<form method="post" enctype="multipart/form-data" action="mall.asp?cmd=resultat">
file:<br><input type=file name="fil"><p>
<input type=submit value="upload!">
</form>
<%
Case "resultat"
Set Upload = Server.CreateObject("Persits.Upload")
Upload.SetMaxSize 100000, True
Count = Upload.Save
Set File = Upload.Files("fil")
If Not File Is Nothing Then
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".\databas\wbbas.mdb")
Set rs = Server.CreateObject("adodb.recordset")
Hash = File.MD5Hash
rs.Open "SELECT * from Upload WHERE Hash='" & Hash & "'", Connect, 2, 3
If Not rs.EOF Then
Response.Write "This file already exists in the database."
Response.End
End If
rs.Close
rs.Open "Upload", Connect, 2, 3
rs.AddNew
rs("FBlob") = File.Binary
rs("FNamn") = File.FileName
rs("FStor") = File.Size
rs("hash") = Hash
rs.Update
UdId= rs("UdId")
rs.Close
rs.Open "Mall", Connect, 2, 3
rs.AddNew
rs("FId") = FId
rs("FNamn") = File.FileName
rs.Update
Response.Write "File saved."
Else
Response.Write "File not selected."
End If
%>
Kan jag lägga ihop dom i samma form så att jag kan skriva in info om tävlingar utan att behöva ladda upp resultat eller ladda upp resultat om informationen redan finns om tävlingen ?