Problem med post!
HejsaJeg har følgende kode:
<p align="center"><FORM NAME="MyForm" METHOD="POST" ENCTYPE="multipart/form-data"
ACTION="upload.asp?<% = PID %>"
OnSubmit="return ShowProgress();">
<br>
<br>
Upload en fil:
<INPUT TYPE="FILE" SIZE="40" NAME="FILE1">
<INPUT TYPE=SUBMIT VALUE="Upload!"> <br>
</FORM>
<p align="center">Herunder har du mulighed for at tilføje en ledig til
systemet.<br>
Det er ikke nødvendigt at udfylde det sidste felt!</p>
</p>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
<form action="stillingopret.asp" method="post">
<tr>
<td width="26%">Stilling:</td>
<td width="74%">
<input name="Stilling" type="textbox" class="InputTable" size="40"></td>
</tr>
<tr>
<td width="26%">Information:</td>
<td width="74%">
<input name="Information" type="textbox" class="InputTable" size="40"></td>
</tr>
<tr>
<td width="26%">Stillings annonce</td>
<td width="74%">
<input name="Link" type="textbox" class="InputTable" size="40">
(Eks. 1.doc)</td>
</tr>
</table>
<p align="center">
<input name="submit" type="submit" class="Button" value="Opret">
<input name="reset" type="reset" class="Button" value="Slet og Start Forfra"></p>
<br><br>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="27%">Angiv brugernavn:</td>
<td width="73%">
<input name="Stilling" type="textbox" class="InputTable" size="40"></td>
</tr>
</table>
<p align="center">
<input name="submit" type="submit" class="Button" value="Slet">
<br>
<a href="index.asp">Tilbage til administrator delen.</a><br>
Og den side den sender vidre til har dette:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("../Stillinger/Stillinger.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
if (Request.Form("Stilling") <> "" AND Request.Form("Information") <> "") then
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from Stillinger"
rs.Open strsql, conn, 1, 3
rs.AddNew
rs("Stilling") = Request.Form("Stilling")
rs("Firma") = Session("auth_Gruppenavn")
rs("Link") = Request.Form("Link")
rs("Information") = Request.Form("Information")
rs.update
Response.Write"<tr>"
Response.Write"<td width=""50%"">Stilling</td>"
Response.Write"<td width=""50%"">" & request.form("Stilling") & "</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td width=""50%"">Firma</td>"
Response.Write"<td width=""50%"">" & Session("auth_Gruppenavn") & "</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td width=""50%"">Information</td>"
Response.Write"<td width=""50%"">" & Request.Form("Information") & "</td>"
Response.Write"</tr>"
Response.Write"<tr>"
Response.Write"<td width=""50%"">"
Response.Write("<a href=""Http://www.havneparken1vejle.dk/fagseminar/"& Request.Form("link") &""" style=""text-decoration: none"">Stillings annonce</a></td>")
Response.Write"<td width=""50%""> </td>"
Response.Write"</tr>"
Response.Write"</table>"
rs.Close
set rs = nothing
else
Response.Write"Du mangler at udfylde en eller flere felter!</font>"
Response.Write"<script>"
Response.Write"window.setTimeout('history.back();',2000);"
Response.Write"</script>"
end if
end if
%>
Mit problem er at når jeg oprettet er ny fagseminar så smider den ,(mellemrum) bagved uden at jeg har bedt den om det. Fjerner jeg det sidste i min kode hvor man kan slette en fagseminar, så gør den det ikke. Hvad er der lige galt?
