---
title: "Preview"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/99778-preview"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ivar"
published: "2004-03-18T19:21:47.000Z"
updated: "2004-03-18T19:44:27.000Z"
replies: 4
views: 232
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/99778-preview"
---

# Preview

## #1 — Ivar, 2004-03-18T19:21Z

```

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")
%>
```

Permalänk: https://www.webforum.nu/p/99778

## #2 — @nders, 2004-03-18T19:28Z

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.

Permalänk: https://www.webforum.nu/p/1303232

## #3 — Ivar, 2004-03-18T19:36Z

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 "&nbsp;"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

%\>

Permalänk: https://www.webforum.nu/p/1303239

## #4 — @nders, 2004-03-18T19:38Z

Du får ju gärna lägga koden inom \[kod\]-taggar förstås...

Permalänk: https://www.webforum.nu/p/1303241

## #5 — Ivar, 2004-03-18T19:44Z

Sorry

Permalänk: https://www.webforum.nu/p/1303247

---

Tråden på webben: https://www.webforum.nu/amne/asp/99778-preview