4 svar · 232 visningar · startad av Ivar
Hej,
Försöker göra en preview sida med två länkar till att ändra och godkänn om allting är Ok.
Nu till problemet om man väljer att ändra då ska inget skickas till databasen.
Som det är nu sparas allting i data basen i alla fall .
Någon som kan hjälpa mig traven.
<%
function nyrad(textstrang)
textstrang = Replace(textstrang, vbCrLf, "<br>")
nyrad = textstrang
end function
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Upload.Save(Server.MapPath("bilder/"))
For Each file In Upload.Files
If File.ImageType = "UNKNOWN" Then
File.Delete
Response.Redirect "Fell.asp"
Response.End
End If
Next
For Each file In Upload.Files
If file.Size = 100000 Then
'This means the file was truncated
Response.Redirect "fel.asp"
File.Delete
End If
Next
Set File = Upload.Files("blob")
item = Upload.form("item")
description = Upload.form("description")
sal= Upload.form("sal")
mark= Upload.form("mark")
category = Upload.form("category")
ja = Upload.form("ja")
price = Upload.form("price")
phone = Upload.form("phone")
email = Upload.form("email")
stad = Upload.form("stad")
password = Upload.form("password")
%>
Hur gör du med formuläret? För enkelhets skull hade jag skickat till en annan frame / annat fönster vid preview. Om du skickar till samma frame/fönster så måste du posta tillbaka allting, och då blir du av med filen eftersom du inte kan förvälja fil i formuläret.
Dessutom blir dina inlägg lättare att läsa om du inte skriver ditt meddelande mellan [kod]-taggarna. Lägg bara koden där.
Här är hela koden så du kan förstå vad det handlar om
<%
function nyrad(textstrang)
textstrang = Replace(textstrang, vbCrLf, "<br>")
nyrad = textstrang
end function
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Upload.Save(Server.MapPath("bilder/"))
For Each file In Upload.Files
If File.ImageType = "UNKNOWN" Then
File.Delete
Response.Redirect "Fell.asp"
Response.End
End If
Next
For Each file In Upload.Files
If file.Size = 100000 Then
'This means the file was truncated
Response.Redirect "fel.asp"
File.Delete
End If
Next
Set File = Upload.Files("blob")
item = Upload.form("item")
description = Upload.form("description")
sal= Upload.form("sal")
mark= Upload.form("mark")
category = Upload.form("category")
ja = Upload.form("ja")
price = Upload.form("price")
phone = Upload.form("phone")
email = Upload.form("email")
stad = Upload.form("stad")
password = Upload.form("password")
%>
<form action="forhand.asp" method="post" enctype="multipart/form-data" name="mailform" id="mailform">
<input name="item" type="hidden" value="<%=Upload.form("item")%>" size="25">
<input name="description" type="hidden" value="<%=Upload.form("description")%>" size="25">
<input name="sal" type="hidden" value="<%=Upload.form("sal")%>" size="25">
<input name="mark" type="hidden" value="<%=Upload.form("mark")%>" size="25">
<input name="category" type="hidden" value="<%=Upload.form("category")%>" size="25">
<input name="ja" type="hidden" value="<%=Upload.form("ja")%>" size="25">
<input name="price" type="hidden" value="<%=Upload.form("price")%>" size="25">
<input name="phone" type="hidden" value="<%=Upload.form("phone")%>" size="25">
<input name="email" type="hidden" value="<%=Upload.form("email")%>" size="25">
<input name="stad" type="hidden" value="<%=Upload.form("stad")%>" size="25">
<input name="blob" type="hidden" value="<%=Upload.form("blob")%>" size="25">
<input name="password" type="hidden" value="<%=Upload.form("password")%>" size="25">
<style >
BODY {
background-image: url('l3.gif');
background-attachment: fixed;
background-repeat: no-repeat;
margin-left: 0px;
margin-top: 0px
}
.style1 {font-family: Verdana, Arial, Helvetica, sans-serif}
.style2 {
font-size: 12px;
color: #996600;
}
.style3 {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-style: italic;
}
.style4 {color: #996600}
.style5 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-style: italic; color: #996600; }
.style6 {font-size: 12px}
.style7 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; }
</style>
<body bgcolor="#FFFFFF">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="5">
<tr>
<th scope="row"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Ime na Oglasot:</font></div></th>
<th scope="row"><div align="left" class="style1 style2"><em><%=Upload.form("item")%></em></div></th>
</tr>
<tr>
<th valign="top" scope="row"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Opis:</font></div></th>
<th scope="row"><div align="left" class="style3 style4"><%=nyrad(Upload.form("description"))%></div></th>
</tr>
<tr>
<th scope="row"><div align="right">Prodavam/Kupuvam:</div></th>
<th scope="row"><div align="left" class="style5"><%if Upload.form("sal")="" then response.write "Prodavam" else response.write " "end if%><%=Upload.form("sal")%></div></th>
</tr>
<tr>
<th width="26%" scope="row"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Oboen
oglas:</font></div></th>
<th width="74%" scope="row"><div align="left" class="style5"><%=Upload.form("mark")%></div></th>
</tr>
<tr>
<th scope="row"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Kategorija:</font></div></th>
<th scope="row"><div align="left" class="style5"><%=eval(Upload.form("category"))%></div></th>
</tr>
<tr>
<th scope="row"><div align="right"><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif">Pokazhi na 1:a strana</font></b></font><font size="2" face="Verdana, Arial, Helvetica, sans-serif">:</font></div></th>
<th scope="row"><div align="left" class="style5"><%=Upload.form("ja")%></div></th>
</tr>
<tr>
<th scope="row"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Cena: </font></div></th>
<th scope="row"><div align="left" class="style5"><%=Upload.form("price")%></div></th>
</tr>
<tr>
<th scope="row"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Tel br:</font></div></th>
<th scope="row"><div align="left" class="style5"><%=Upload.form("phone")%></div></th>
</tr>
<tr>
<th scope="row"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">E-mail:</font></div></th>
<th scope="row"><div align="left" class="style5"><%=Upload.form("email")%></div></th>
</tr>
<tr>
<th scope="row"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Grad/Mesto:</font></div></th>
<th scope="row"><div align="left" class="style5"><%=Upload.form("stad")%></div></th>
</tr>
<tr>
<th scope="row"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Lozinka:</font></div></th>
<th scope="row"><div align="left" class="style5"><%=Upload.form("password")%></div></th>
</tr>
<tr>
<th scope="row"><div align="right"></div></th>
<th scope="row"><div align="left">
<%
If NOT File Is Nothing Then
strFileName = File.Filename
End if
%>
<IMG SRC="bilder/<% = File.FileName%>"></div></th>
</tr>
<tr>
<th scope="row"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Slika:</font></div></th>
<th scope="row"><div align="left" class="style5"><%Response.Write File.Path & " (" & File.Size &" bytes)"%></div></th>
</tr>
</table>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="10">
<tr>
<th width="47%" scope="row">
\<div align="right"\>
\<a href="placead.asp?item=\<%=Upload.form("item")%\>&description=\<%=Upload.form("description")%\>&mark=\<%=Upload.form("mark")%\>&category=\<%=Upload.form("category")%\>&ja=\<%=Upload.form("ja")%\>&price=\<%=Upload.form("price")%\>&category=\<%=Upload.form("category")%\>&phone=\<%=Upload.form("phone")%\>&email=\<%=Upload.form("email")%\>&stad=\<%=Upload.form("stad")%\>&password=\<%=Upload.form("password")%\>"\> Ändra annonsen\</a\>
\</div\>\</th\>
\<td width="53%" class="style7"\>\<a href="javascript:document.mailform.submit();"\> Godkänn annonsen \</a\>\</td\>
</tr>
</table>
</form>
<%
If NOT File Is Nothing Then
strFileName = File.Filename
End if
' Build ODBC connection string
set connect = server.createobject("ADODB.connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;"
Set RecSet= Server.CreateObject("ADODB.Recordset")
SQL= "INSERT INTO mak (item, description,typ,markerad, category, test,price,phone,email,stad, filename,password)"
SQL = SQL & " VALUES( '" & item & "','"& description & "','" & sal &"','" & mark&"','" & category &"','"&ja& "','"&price&"','"&phone&"','"& email &"', '"&stad&"','"&strFileName& "','"& password & "')"
Connect.execute(SQL)
connect.close
Set RecSet= Nothing
%>
Du får ju gärna lägga koden inom [kod]-taggar förstås...
Sorry