webForumDet fria alternativet
Logga in / Bli medlem

Förhandsgranska formulär...

ASP

15 svar · 405 visningar · startad av Method

MethodMedlem sedan apr. 2001357 inlägg
Frågan#1

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

------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd

[Redigerat av Method den 06 sep 2001]

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#2

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

------------------
mördar-anders, det är jag.

[Redigerat av @nders den 06 sep 2001]

MethodMedlem sedan apr. 2001357 inlägg
#3

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.

------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#4

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,

------------------
mördar-anders, det är jag.

MethodMedlem sedan apr. 2001357 inlägg
#5

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

------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#6

hur ser din kod ut då? alltihop?

------------------
mördar-anders, det är jag.

MethodMedlem sedan apr. 2001357 inlägg
#7
<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>

------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd

[Redigerat av Method den 06 sep 2001]

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#8

jag hittar inga knappar i din kod?

------------------
mördar-anders, det är jag.

MethodMedlem sedan apr. 2001357 inlägg
#9

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

------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#10

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,

------------------
mördar-anders, det är jag.

MethodMedlem sedan apr. 2001357 inlägg
#11

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

------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#12

varsågod! :)

------------------
mördar-anders, det är jag.

MethodMedlem sedan apr. 2001357 inlägg
#13

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

------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd

[Redigerat av Method den 06 sep 2001]

@nderss avatar@ndersMedlem sedan juni 200032 967 inlägg
#14
<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å?

------------------
mördar-anders, det är jag.

MethodMedlem sedan apr. 2001357 inlägg
#15

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

------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd

[Redigerat av Method den 06 sep 2001]

Paces avatarPaceMedlem sedan juni 20019 024 inlägg
#16

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>

------------------
"It's not where ya from it's where ya at"

263 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
124 ms — deklarationer (db)
0 ms — hämta statistik (cache)
136 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)