---
title: "Förhandsgranska formulär..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11498-förhandsgranska-formulär"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Method"
published: "2001-09-06T08:35:00.000Z"
updated: "2001-09-06T19:19:00.000Z"
replies: 15
views: 409
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/11498-förhandsgranska-formulär"
---

# Förhandsgranska formulär...

## #1 — Method, 2001-09-06T08:35Z

Jag sökte lite och hittade detta inlägg
 <http://cgi.webforum.nu/wf/Forum11/HTML/004215.html> inlägg #9 Janspeed

men jag får inte det att fungera att den skickar til olika sidor beronde på vilken knapp man klickar på.

Har någon nån lösning på detta?

Jag vill ha en preview knapp

och en skicka in knapp

Tack på förhand

Jonas

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

## #2 — @nders, 2001-09-06T08:53Z

länken fungerar inte, så jag är inte säker på vad du menar, men generellt så är det ju bara att med javascript byta action på formuläret innan submit.

```
<input type="button" value="1" onclick="document.formuläret.action='preview.asp'; document.formuläret.submit();">
<input type="button" value="2" onclick="document.formuläret.action='skickain.asp'; document.formuläret.submit();">
```

typ alltså. otestat men bör funka. om det nu var det du menade.

red: grrrr...

**red2:** förbannat gammal tråd, men man ska åtminstone se till att exemplen är korrekta. :bire

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

## #3 — Method, 2001-09-06T09:10Z

nu funkar länken.

vad skall jag ha för javascript?

Kolla på länken där gör de på ett annat sätt.

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

## #4 — @nders, 2001-09-06T09:19Z

det bör räcka utmärkt med det javascript jag bakade in i onclick på knapparna ovan.

du ska alltså ha typen button, inte submit.

mvh,

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

## #5 — Method, 2001-09-06T09:37Z

Jag får inte dina knappar att fungera???

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

## #6 — @nders, 2001-09-06T09:52Z

hur ser din kod ut då? alltihop?

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

## #7 — Method, 2001-09-06T09:59Z

```
<html>

	<head>
		<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
		<meta name="generator" content="Adobe GoLive 5">
		<title>Lägg till nytt jobb</title>
		<%Session.LCID = 1053%>
		<!-- kollar om användaren använder Microsoft Internet Explorer. -->
		<%
		Kolla = Request.ServerVariables("HTTP_USER_AGENT")
		If Instr(Kolla, "MSIE") then
		%>
		<style type="text/css">
			<!--
			input { color: #000000; background-color: #FFFFFF; font-size: 11px; border: 1px #000000 solid; font-family: Verdana}
			select { color: #000000; background-color: #FFFFFF; font-size: 11px; border: 1px #000000 solid ; font-family: Verdana}
			textarea { color: #000000; background-color: #FFFFFF; font-size: 11px; border: 1px #000000 solid ; font-family: Verdana}
			.send { color: #000000; background-color: #D4D0C8; font-size: 11px; border: 1px #808080 solid; font-family: Verdana}
			.clear { color: #000000; background-color: #D4D0C8; font-size: 11px; border: 1px #808080 solid; font-family: Verdana}
			-->
		</style>
		<!-- Om den inte använder MSIE så skriver den inte ut koden ovan. -->
		<%
		else

		Response.Write ""
		end if
		%>
		<link rel="stylesheet" href="text.css">
	</head>

<body bgcolor="#ffffff">
<form action ="jobb_ok.asp" method = "post">
			<table border="0" cellpadding="8" cellspacing="0" width="500">
				<tr>
					<td colspan="2" bgcolor="#d2d2d2" class="h2">Formulär för nytt jobb</td>
				</tr>
				<tr>
					<td width="50%" bgcolor="#e4e4e4"><span class="bold">Titel: </span>på jobbet som sökes<br>
						<input type = "text" name ="Huvudrubrik" size="45" maxlength="100"><br>
								</td>
					<td bgcolor="#e4e4e4"><span class="bold">Kontor:<br>
						</span><select name="kontor" size=1>
							<!-- Öppnar databasen, anger vad dsn har för namn. Och hämtar info från kolumnen kontor utan att hämta dubletter i tabellen kontaktpersoner. --><%
								Set MinCon = Server.CreateObject("ADODB.Connection")
								Set rs = Server.CreateObject("ADODB.Recordset")
								MinCon.Open "DSN=bdab1;UID=;PWD="
								SQL = "SELECT DISTINCT kontor FROM kontor ORDER BY kontor ASC"
								rs.Open SQL, MinCon
								response.write "<option value="""">-- Välj kontor --</option>"
								Do While Not rs.EOF
								%>
								<option><%=rs("kontor")%></option><!-- Hoppar ner en rad och läser nästa rad. --><%
								rs.MoveNext
								Loop
								Response.Write "<option>_____________________</option>"
								%>
						</select></td>
				</tr>
				<tr>
					<td colspan="2" bgcolor="#e4e4e4"><span class="bold">1:a rubriken:</span> t ex Arbetsuppgifter<br>
						<input type = "text" name ="Rubrik 1" size="76" maxlength="100" value="Arbetsuppgifter"></td>
				</tr>
				<tr>
								<td colspan="2" bgcolor="#e4e4e4"><span class="bold">1:a stycket:<br>
						</span><font face="Verdana" size="1"><textarea name="Text 1" rows=6 cols="75"></textarea></font></td>
							</tr>
				<tr>
					<td colspan="2" bgcolor="#e4e4e4"><span class="bold">2:a rubriken:</span> t ex Kvalifikationer<br>
						<input type = "text" name ="Rubrik 2" size="76" maxlength="100" value="Kvalifikationer"></td>
				</tr>
				<tr>
								<td colspan="2" bgcolor="#e4e4e4"><span class="bold">2:a stycket:<br>
						</span><font face="Verdana" size="1"><textarea name="Text 2" rows=6 cols="75"></textarea></font></td>
							</tr>
						<tr>
							<td colspan="2" bgcolor="#e4e4e4"><span class="bold">Kontaktpersoner för jobbansökan: </span>välj enligt nummerordningen<br>
					</td>
						</tr>
						<tr>
					<td width="50%" bgcolor="#e4e4e4"><SELECT NAME = "kpers" SIZE = 1>
									<!-- Öppnar databasen, hämtar all info från kolumnen Namn från tabellen kontaktpersoner. -->
									<%
									Set MinCon = Server.CreateObject("ADODB.Connection")
									Set rs = Server.CreateObject("ADODB.Recordset")
									MinCon.Open "DSN=bdab1;UID=;PWD="
									SQL = "SELECT Namn FROM kontaktpersoner WHERE kontakt = 'ja' ORDER BY Namn ASC"
									rs.Open SQL, MinCon
									response.write "<option value="""">1</option>"
									Do While Not rs.EOF
									%>
									<option><%=rs("Namn")%></option>
									<!-- Hoppar ner en rad och läser nästa rad. -->
									<%
									rs.MoveNext
									Loop
									Response.Write "<option>_____________________</option>"
									%></SELECT></td>
					
					<td bgcolor="#e4e4e4" align="left"><SELECT NAME = "kpers2" SIZE = 1>
						<!-- Öppnar databasen och hämtar all info från kolumnen Namn i tabellen kontaktpersoner. -->
						<%
						Set MinCon = Server.CreateObject("ADODB.Connection")
						Set rs = Server.CreateObject("ADODB.Recordset")
						MinCon.Open "DSN=bdab1;UID=;PWD="
						SQL = "SELECT Namn FROM kontaktpersoner WHERE kontakt = 'ja' ORDER BY Namn ASC"
						rs.Open SQL, MinCon
						response.write "<option value="""">2</option>"
						Do While Not rs.EOF
						%>
						<option><%=rs("Namn")%></option>
						<!-- Hoppar ner en rad och läser nästa rad. -->
						<%
						rs.MoveNext
						Loop
						Response.Write "<option>_____________________</option>"
						%></SELECT></td>
				</tr>
				<tr>
					<td width="50%" bgcolor="#e4e4e4"><SELECT NAME = "kpers3" SIZE = 1>
						<!-- Öppnar databasen, hämtar all info från kolumnen Namn från tabellen kontaktpersoner. -->
						<%
						Set MinCon = Server.CreateObject("ADODB.Connection")
						Set rs = Server.CreateObject("ADODB.Recordset")
						MinCon.Open "DSN=bdab1;UID=;PWD="
						SQL = "SELECT Namn FROM kontaktpersoner WHERE kontakt = 'ja' ORDER BY Namn ASC"
						rs.Open SQL, MinCon
						response.write "<option value="""">3</option>"
						Do While Not rs.EOF
						%>
						<option><%=rs("Namn")%></option>
						<!-- Hoppar ner en rad och läser nästa rad. -->
						<%
						rs.MoveNext
						Loop
						Response.Write "<option>_____________________</option>"
						%></SELECT></td>
					<td bgcolor="#e4e4e4" align="left"><SELECT NAME = "kpers4" SIZE = 1>
						<!-- Öppnar databasen och hämtar all info från kolumnen Namn i tabellen kontaktpersoner. -->
						<%
						Set MinCon = Server.CreateObject("ADODB.Connection")
						Set rs = Server.CreateObject("ADODB.Recordset")
						MinCon.Open "DSN=bdab1;UID=;PWD="
						SQL = "SELECT Namn FROM kontaktpersoner WHERE kontakt = 'ja' ORDER BY Namn ASC"
						rs.Open SQL, MinCon
						response.write "<option value="""">4</option>"
						Do While Not rs.EOF
						%>
						<option><%=rs("Namn")%></option>
						<!-- Hoppar ner en rad och läser nästa rad. -->
						<%
						rs.MoveNext
						Loop
						Response.Write "<option>_____________________</option>"
						%></SELECT></td>
				</tr>
						<tr>
							<td colspan="2" bgcolor="#e4e4e4"><span class="bold">Datum:</span> (Det datum som ansökan senast skall vara inne)<br>
						
						
										Datumet måste hålla detta formatet YYYY-MM-DD<br>
						<input type = "text" name ="datum" value="<%=date%>" size="32" maxlength="100"></td>
						</tr>
				<tr>
					<td colspan="2" align="right" bgcolor="#e4e4e4"><button value="1" onclick="document.formuläret.action='preview.asp'; document.formuläret.submit();">
<button value="2" onclick="document.formuläret.action='skickain.asp'; document.formuläret.submit();"></td>
				</tr>

				<tr>
					<td bgcolor="#d2d2d2" width="50%"></td>
					<td bgcolor="#d2d2d2"><input type="hidden" name="adddate" value="<%=date%>"></td>
				</tr>
			</table>
		</form>
				
				
</body>

</html>
```

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

## #8 — @nders, 2001-09-06T10:00Z

jag hittar inga knappar i din kod?

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

## #9 — Method, 2001-09-06T10:04Z

Ok, en liten miss efter jag hade provat koden så tog jag bort dom men nu la jag in dom där de låg när jag provade koden

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

## #10 — @nders, 2001-09-06T11:01Z

du har inget namn på ditt formulär. då får man köra med index istället.

lägg dessa före din \</form\>:

```
<input type="button" value="1" onclick="document.forms[0].action='preview.asp'; document.forms[0].submit();">
<input type="button" value="2" onclick="document.forms[0].action='skickain.asp'; document.forms[0].submit();">
```

mvh,

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

## #11 — Method, 2001-09-06T11:41Z

Tack så hemskt mycket Anders :) :) :)

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

## #12 — @nders, 2001-09-06T11:52Z

varsågod! :)

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

## #13 — Method, 2001-09-06T13:08Z

En sista sak, kan man få att den här koden öppnar ett nytt fönster?

med begränsade bredd o höjd på fönstret?

```
<button value="1" onclick="document.forms[0].action='preview.asp'; document.forms[0].submit();">
```

Tack på förhand

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

## #14 — @nders, 2001-09-06T13:17Z

```
<input type="button" value="1" onclick="document.forms[0].action='preview.asp'; document.forms[0].submit(); window.open('klap.asp','','width=400,height=500');">
```

typ så?

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

## #15 — Method, 2001-09-06T16:07Z

Jag testade koden du gav mig det funkar, bara det att jag vill att bara fönstret skall öppnas och att den "gamla" sidan ligger kvar i bakgrunden.

Tack på förhand

Jonas

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

## #16 — Pace, 2001-09-06T19:19Z

Hallo!

Då anger du bara TARGET="\_blank" i din FORM-tagg.

Men om du nu ska förhandsgrandska ett formulär med lite text & html så kan du ju använda följande funktion (som körs på klienten):

```
<SCRIPT LANGUAGE="JavaScript">
<!--
function previewHTML(form) {
 var inf = form.TextAreaField.value;
 win = window.open(", ", 'popup', 'toolbar = no, status = no');
 win.document.write("" + inf + "");
}
//  -->
</script>

<form>
<textarea name="TextAreaField" cols=45 rows=6></textarea>
<input type="button" value=" view " onclick="previewHTML(this.form)">
</form>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11498-förhandsgranska-formulär
