15 svar · 405 visningar · startad av Method
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]
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]
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
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.
Jag får inte dina knappar att fungera???
------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd
<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]
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
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.
Tack så hemskt mycket Anders :) :) :)
------------------
--------------
STARZINGER
Tackar & Bockar forumet rockar!
Med ett hugg faller inget träd
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]
<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.
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]
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"