webForumDet fria alternativet
Logga in / Bli medlem

Förhandsgranska formulär...

JavaScriptur Javascript

30 svar · 694 visningar · startad av Method · sida 2 av 2

@ndersMedlem sedan juni 200032 969 inlägg
#21

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?

näe, men lägg till scrollbars=yes så blir det det. :)

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

berätta hur det går!

mvh,

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

MethodMedlem sedan apr. 2001357 inlägg
#22

Helt underbart precis som jag vill ha det :) :)

Tack igen !!!!! ;)

Tack så mycket

Jonas

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

MethodMedlem sedan apr. 2001357 inlägg
#23

En liten fråga bara ;)

när jag klickar på förhandsgranska och sen klickar på skicka in så öppnas jobb_ok.asp i ett nytt fönster

men klickar jag på skicka in direkt utan att förhandsgranska så öppnas det "vanligt"

hur kommer det sig?

denna kod använder jag

<input class="send" type="button" name="" value="F&ouml;rhandsgranska" onclick="document.forms[0].action='preview.asp'; window.open('','preview','width=400,height=500,scrollbars=yes'); document.forms[0].target='preview'; document.forms[0].submit();">
																<input class="send" type="button" name="" value="Skicka in" onclick="document.forms[0].action='jobb_ok.asp'; document.forms[0].submit();">

tack på förhand

Jonas

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

@ndersMedlem sedan juni 200032 969 inlägg
#24

vad vill du ska hända när man klickar 'skicka in'?

det är ingen hejd på dina frågor... ;)

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

MethodMedlem sedan apr. 2001357 inlägg
#25

Att man skickar formuläret till databasen utan att öppna ett nytt fönster.

Frågar man inte får man inget veta... ;)

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

@ndersMedlem sedan juni 200032 969 inlägg
#26

du råkar inte ha kvar target="_blank" i din <form>-tagg?

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

MethodMedlem sedan apr. 2001357 inlägg
#27

nope, har bara detta

<form action ="jobb_ok.asp" method = "post">

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

@ndersMedlem sedan juni 200032 969 inlägg
#28

ok, nu fattar jag ingenting. :)

försök igen:

  1. vad händer nu?
  2. vad vill du ska hända?
  3. visa hela koden.

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

MethodMedlem sedan apr. 2001357 inlägg
#29
  1. vad händer nu?

Nu händer detta:
klickar jag på |förhandsgranska| så öppnas fönstret och det funkar, när jag har klickat på |förhandsgranska| och sen klickar på |skicka in| så öppnas jobb_ok.asp också i ett nytt fönster.

men klickar jag inte på |förhandsgranska| innan utan klickar på |skicka in| direkt när jag har fyllt i formuläret så öppnas inte jobb_ok.asp i ett nytt fönster (så vill jag ha det).

  1. vad vill du ska hända?

Att klickar man på |förhandsgranska| skall ett nytt fönster öppnas med preview.asp i.

klickar jag på |skicka in| så skall jobb_ok.asp INTE öppnas i ett nytt fönster utan öppnas i samma fönster som formuläret.

  1. visa hela koden.
<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&auml;r f&ouml;r nytt jobb</td>
				</tr>
				<tr>
					<td width="50%" bgcolor="#e4e4e4"><span class="bold">Titel: </span>p&aring; jobbet som s&ouml;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&ouml;r jobbans&ouml;kan: </span>v&auml;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&ouml;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"><input class="send" type="button" name="" value="F&ouml;rhandsgranska" onclick="document.forms[0].action='preview.asp'; window.open('','preview','width=400,height=500,scrollbars=yes'); document.forms[0].target='preview'; document.forms[0].submit();">
																<input class="send" type="button" name="" value="Skicka in" onclick="document.forms[0].action='jobb_ok.asp'; document.forms[0].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>

hoppas att detta skall hjälpa :)

tack på förhand

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

@ndersMedlem sedan juni 200032 969 inlägg
#30

aha! nu fattar jag!

prova detta:

<input class="send" type="button" name="" value="Skicka in" onclick="document.forms[0].target='_self'; document.forms[0].action='jobb_ok.asp'; document.forms[0].submit();">

mvh,

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

MethodMedlem sedan apr. 2001357 inlägg
#31

Jippie!!! :) :)

det funkar tack Anders

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

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