webForumDet fria alternativet
Logga in / Bli medlem

Förhandsgranska formulär...

JavaScriptur Javascript

30 svar · 694 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 969 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.

<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();">

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

red: grrrr...

------------------
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 969 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 969 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 969 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 969 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>:

<button value="1" onclick="document.forms[0].action='preview.asp'; document.forms[0].submit();">
<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 969 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 969 inlägg
#14
<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"

MethodMedlem sedan apr. 2001357 inlägg
#17

Pace, jag provade din kod men det verkar som om det är fel på javascriptet och sen vill jag gärna ha begränsad höjd o bredd på fönstret.

har du lust att fixa det ;)

Tack på förhand!

Jonas

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

MethodMedlem sedan apr. 2001357 inlägg
#18

Vid närmare studering så verkar det inte va den koden jag är ute efter, jag vill ha två knappar en som man kan preview´a och en man kan skicka förmuläret med, anders kod funkar bra förutom att den öppnar en ny sida i det "gamla" fönstret men jag vill bara att den öppnar ett nytt fönster.

Kan inte nån modda om anders script?

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

@nderss avatar@ndersMedlem sedan juni 200032 969 inlägg
#19

vill du posta formuläret till popupfönstret?

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

mvh,

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

[Redigerat av @nders den 07 sep 2001]

MethodMedlem sedan apr. 2001357 inlägg
#20

på preview kanappen vil jag bara öppna ett nytt fönster med den infon man fyllti i formuläret, för att se hur det ser ut när man postat det och att det blir lättare att läsa och se fel innan man postar i databasen sen skall man kunna stänga ner det och posta formuläret på den sida man fyller i allt.

en fråga om det fönstret man öppnar med din kod Anders, blir det scrolllist på fönstret så att man kan sccrolla upp o ner?

Tack på förhand

Jonas

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

145 ms totalt · 3 externa anrop · v20260731065814-full.55e59744
140 ms — hämta forumlista (db)
0 ms — hämta statistik (cache)
142 ms — hämta tråd, inlägg och bilagor (db)