2 svar · 173 visningar · startad av Biasse
Nu blir det lång tråkig kod här. Det är till en annons sidaa där jag skulle villa att den kod dom skriver in för att ändra/radera en annons ska skickas till den mail dom anger i formuläret. Är det möjligt på nått enkelt sätt att få iväg ett sån till detta ... typ: Tack för din annons + lösen.
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\webb\fyndet\db\annons.mdb"
%>
<title><%=title%></title>
<script language="javaScript">
function tecken(){
if (document.form1.namn.value==""){alert("Ditt namn måste du skriva!");
return false;
} else if (document.form1.rubrik.value=="") {alert("Du glömde skriva rubriken!");
return false;
} else if (document.form1.landskap.value=="") {alert("Du glömde välja landskap!");
return false;
} else if (document.form1.rubrik.value=="") {alert("Du glömde välja en kategori!");
return false;
} else if (document.form1.epost.value=="") {alert("Du glömde skriva in din e-post!");
return false;
} else if (document.form1.adtype.value=="") {alert("Du glömde välja någon säljform!");
return false;
} else if (document.form1.text.value=="") {alert("Du glömde skriva annonsinnehållet!");
return false;
}
}
</script>
</head>
<body bgcolor="#F4F5FB" style="border: 1 solid #000080">
<font color="000000">
<table width="99%" cellpadding="0" align="center" cellspacing="0" style="border-right: 0px solid #767A7E;border-bottom: 0px solid #767A7E;border-top: 0px solid #A0A3A5;border-left: 0px solid #A0A3A5">
<tr>
<td style="background-color:#F4F5FB" bgcolor="#F4F5FB">
<table cellspacing="0" cellpadding="8">
<tr>
<td valign="top">
<br>
<font color="red">*</font> </font><font color="#000080"> = obligatoriska fält.</font>
<form name="form1" method="post" ENCTYPE="multipart/form-data" action="save_annons.asp" onSubmit="return tecken()">
<font color="#000080">
</font><b><font color="#000080">Namn:</font><font color="000000"><font color="red">*</font><br>
<input type="text" name="namn" size="25" style="border: 1px solid #000000"><br>
</font><font color="#000080">E-mail:</font><font color="000000"><font color="red">*</font><br>
<input type="text" name="epost" size="25" style="border: 1px solid #000000"><br>
Ort:<font color="red">*</font><br>
<SELECT NAME="landskap" style="border: 1px solid #000000">
<OPTION Selected VALUE="0">Välj Ort</OPTION>
<OPTION VALUE="Avesta">Avesta</OPTION>
<OPTION VALUE="Borlänge">Borlänge</OPTION>
<OPTION VALUE="Falun">Falun</OPTION>
<OPTION VALUE="Gagnef">Gagnef</OPTION>
<OPTION VALUE="Hedemora">Hedemora</OPTION>
<OPTION VALUE="Leksand">Leksand</OPTION>
<OPTION VALUE="Ludvika">Ludvika</OPTION>
<OPTION VALUE="Malung">Malung</OPTION>
<OPTION VALUE="Mora">Mora</OPTION>
<OPTION VALUE="Orsa">Orsa</OPTION>
<OPTION VALUE="Rättvik">Rättvik</OPTION>
<OPTION VALUE="Smedjebacken">Smedjebacken</OPTION>
<OPTION VALUE="Säter">Säter</OPTION>
<OPTION VALUE="Vansbro">Vansbro</OPTION>
<OPTION VALUE="Älvdalen">Älvdalen</OPTION>
<OPTION VALUE="Annan Ort">Annan Ort</OPTION>
</SELECT>
<br>
</font><font color="#000080">Kategori:</font><font color="000000"><font color="red">*</font><br>
<SELECT NAME="kategori" style="border: 1px solid #000000">
<option value="0" selected>Välj Kategori</option>
<option value="Antikt och Samlarprylar">Antikt och Samlarprylar</option>
<option value="Bilar">Bilar</option>
<option value="Bildelar och Biltillbehör">Bildelar och Biltillbehör</option>
<option value="Biljetter och Resor">Biljetter och Resor</option>
<option value="Bilstereo">Bilstereo</option>
<option value="Båtar">Båtar</option>
<option value="Cyklar">Cyklar</option>
<option value="Datatillbehör och Delar">Datatillbehör och Delar</option>
<option value="Datorer">Datorer</option>
<option value="Djur och Djurartiklar">Djur och Djurartiklar</option>
<option value="Fiske">Fiske</option>
<option value="Foto">Foto</option>
<option value="För Hus och Trädgård">För Hus och Trädgård</option>
<option value="Golf">Golf</option>
<option value="Hobby">Hobby</option>
<option value="Hus och Lägenheter">Hus och Lägenheter</option>
<option value="Hushållsmaskiner">Hushållsmaskiner</option>
<option value="Husvagnar och Husbilar">Husvagnar och Husbilar</option>
<option value="Hästar och Hästsport">Hästar och Hästsport</option>
<option value="Jakt">Jakt</option>
<option value="Kläder">Kläder</option>
<option value="Konst">Konst</option>
<option value="Leksaker och Barnartiklar">Leksaker och Barnartiklar</option>
<option value="Litteratur">Litteratur</option>
<option value="Mopeder">Mopeder</option>
<option value="Motorcyklar">Motorcyklar</option>
<option value="Musikinstrument">Musikinstrument</option>
<option value="Möbler och Heminredning">Möbler och Heminredning</option>
<option value="Skotrar">Skotrar</option>
<option value="Sport och Fritid">Sport och Fritid</option>
<option value="Telefoner">Telefoner</option>
<option value="TV/Radio/Video/Stereo">TV/Radio/Video/Stereo</option>
<option value="TV-Spel">TV-Spel</option>
<option value="Verktyg och Maskiner">Verktyg och Maskiner</option>
<option value="Övrigt">Övrigt</option>
</select>
<br>
</font><font color="#000080">Ladda upp bild:</font><font color="000000"><br>
<input TYPE=FILE name="FILE1" size="35" style="border: 1px solid #000000"></font></b><b><font color="000000">
</font><font color="#000080"> </font></b><b><font color="000000"> </font></b><font color="#000080"><b>Max
Bild Storlek</b> </font><b><font color="#FF0000">100kb</font><font color="000000"><br>
</font><font color="#000080">Typ av annons:</font><font color="000000"><font color="red">*</font>
<br>
<INPUT type="radio" value="Säljes" name="adtype"></font><font color="#000080">Säljes</font><font color="000000"><br>
<INPUT type="radio" value="Köpes" name="adtype"></font><font color="#000080">Köpes</font><font color="000000">
<br>
</font><font color="#000080">Pris: </font><font color="000000"><br>
<input type="text" name="pris" value="0" size="25" style="border: 1px solid #000000"> </font><font color="#000080">OBS!! </font><font color="000000">
</font><font color="#000080">(</font><font color="#FF0000">ENDAST SIFFROR</font><font color="#000080">)</font><font color="000000"><br>
</font><font color="#000080">Annonsrubrik:</font><font color="000000"><font color="red">*</font><br>
<input type="text" name="rubrik" size="25" style="border: 1px solid #000000"><br>
</font><font color="#000080">
Annonstext:</font><font color="000000"><font color="red">*</font><br>
<textarea name="text" cols="85" rows="12" style="border: 1px solid #000000"></textarea>
<br>
</font><font color="#000080">Lösenord:</font><font color="#FF0000">* </font><font color="000000"><br>
<input type="password" name="pwd" size="25" value="" style="border: 1px solid #000000">
</font><font color="#000080">(Så att du kan radera / editera din annons)</font><font color="000000"><br><br>
<input type="submit" name="Submit" value="Lägg in annons">
</FORM>
<br>
<br>
</b>
</td>
</tr>
</table>
</td>
</tr>
</table>
</html>
Ja det går men det gör du ju där du sparar annaonsen i databasen.
Jag hoppas att du arbetar i databasen på den där sidan också, även fast du inte visar det koden annars är det riktigt taskigt kodat efter som du dels öppnar databasen i onödan och dels inte stänger den. Att göra detta med en Access atabas också kommer ta livet av din sida.
sorry..
<%
' Create the FileUploader
Dim Uploader, File
Set Uploader = New FileUploader
' This starts the upload process
Uploader.Upload()
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\webb\fyndet\db\annons.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From annons"
Recset.Open Addera, Conn, 3, 3
RecSet.AddNew
RecSet("pris") = Uploader.Form("pris")
RecSet("kategori") = Uploader.Form("kategori")
RecSet("namn") = Uploader.Form("namn")
RecSet("rubrik") = Uploader.Form("rubrik")
RecSet("text") = Uploader.Form("text")
RecSet("epost") = Uploader.Form("epost")
RecSet("landskap") = Uploader.Form("landskap")
RecSet("date") = now()
RecSet("adtype") = Uploader.Form("adtype")
RecSet("pwd") = Uploader.Form("pwd")
RecSet("ip") = Request.ServerVariables("REMOTE_ADDR")
RecSet("passed")= False
RecSet("picture_type") = ""
If Uploader.Files.Count > 0 Then
' Loop through the uploaded files
For Each File In Uploader.Files.Items
If File.FileSize < 100000 Then
' Save content-type to database
RecSet("picture_type") = File.ContentType
' Save the file to the database
File.SaveToDatabase RecSet("picture")
Else
Response.Write "Bilden är för stor! Max 100kb Tryck på bakåt knappen och försök igen."
set fso = nothing
response.end
End If
Next
End If
RecSet.Update
RecSet.Close
Conn.Close
'Response.Redirect uploadImage.htm
Response.Redirect "ny_tack.asp"
%>