webForumDet fria alternativet
Logga in / Bli medlem

alternativ (dropdown)

18 svar · 405 visningar · startad av tank82

tank82Medlem sedan feb. 2003210 inlägg
#1

Hmm hur ska jag förklara detta då :)

Jo det är så här att jag vill kunna välja olika orter (ex. visby, södertälje osv) men hjälp av en dropdown på denna administrationsida, hur gör jag?

<%RecSet.Close
Set RecSet = Nothing
End If
End If
If Request.Querystring("action") = "add" Then%>

<table width="400" cellpadding="4" cellspacing="0">
<form method="post" action="admin.asp?action=spara" name="texten" onSubmit="return News()">
<tr>
    <td><b>Skribent:</b><br><input type="text" name="skribent" size="55"></td>
</tr>
<tr>
    <td><b>Rubrik:</b><br><input type="text" name="rubrik" size="55"></td>
</tr>
<tr>
    <td><b>Typ (artikel eller nyhet):</b><br><input type="text" name="typ" size="55"></td>
</tr>
<tr>
    <td><b>Ort:</b><br><input type="text" name="ort" size="55"></td>
</tr>
<tr>
    <td><b>Bild url:</b><br><input type="text" name="bildurl" size="55"><br><small>Ingen bild = <font color="#FF0000">filhantering/filer/bilder-artiklar03/no_pic_200x150.jpg</font><br>Insändare = <font color="#FF0000">filhantering/filer/bilder-artiklar03/folkets_rost_200x150.jpg</small></font></td>
</tr>
<tr>
    <td><b>Texten:</b><br><textarea cols="90" rows="20" name="texten"></textarea></td>
</tr>
<tr>
    <td><input type="Submit" name="andra" value="Lägg till"></td>
</tr><table width="385" bordercolor="#1EA6E8" border="1" cellspacing="0" cellpadding="2">

</table>
</form>
</table>

<%End If
If Request.Querystring("action")= "change" Then

Set RecSet = Conn.Execute("SELECT * FROM nyhetartikel WHERE id="& Request.Querystring("id"))%>

<table width="400" cellpadding="4" cellspacing="0">
<form method="post" action="admin.asp?action=andrat&id=<%=Request.Querystring("id")%>" name="texten" onSubmit="return News()">
<tr>
    <td><b>Skribent:</b><br><input type="text" name="skribent" size="55" value="<%=RecSet("skribent")%>"></td>
</tr>
<tr>
    <td><b>Rubrik:</b><br><input type="text" name="rubrik" size="55" value="<%=RecSet("rubrik")%>"></td>
</tr>
<tr>
    <td><b>Typ (artikel eller nyhet):</b><br><input type="text" name="typ" size="55" value="<%=RecSet("typ")%>"></td>
</tr>
<tr>
    <td><b>Ort:</b><br><input type="text" name="ort" size="55" value="<%=RecSet("ort")%>"></td>
</tr>
<tr>
    <td><b>Bild url:</b><br><input type="text" name="bildurl" size="55" value="<%=RecSet("bildurl")%>"><br><small>Ingen bild = <font color="#FF0000">filhantering/filer/bilder-artiklar03/no_pic_200x150.jpg</font><br>Insändare = <font color="#FF0000">filhantering/filer/bilder-artiklar03/folkets_rost_200x150.jpg</small></font></td>
</tr>
<tr>
    <td><b>Texten:</b><br><textarea cols="90" rows="20" name="texten"><%=RecSet("texten")%></textarea></td>
</tr>

<tr>
    <td><input type="Submit" name="andra" value="Utför ändringar"></td>
</tr><table width="385" bordercolor="#1EA6E8" border="1" cellspacing="0" cellpadding="2">

</table>
</form>
</table>

<%RecSet.Close
Set RecSet = Nothing

End If
If Request.Querystring("action")= "spara" Then
   Rubrik      = Replace(Request.Form("rubrik"), "'", "''")
   Typ         = Replace(Request.Form("typ"), "'", "''")
   Ort         = Replace(Request.Form("ort"), "'", "''")
   Skribent    = Replace(Request.Form("skribent"), "'", "''")
   Bildurl     = Replace(Request.Form("bildurl"), "'", "''")
   Texten      = Replace(Request.Form("texten"), "'", "''")

   Conn.Execute("INSERT INTO nyhetartikel(rubrik,typ,ort,skribent,bildurl,texten) VALUES('" & rubrik & "', '" & typ & "', '" & ort & "','" & skribent & "','" & bildurl & "','" & texten & "')")
   Response.Redirect "admin.asp"
End If
If Request.Querystring("action") = "andrat" Then
   Rubrik      = Replace(Request.Form("rubrik"), "'", "''")
   Typ         = Replace(Request.Form("typ"), "'", "''")
   Ort         = Replace(Request.Form("ort"), "'", "''")
   Skribent    = Replace(Request.Form("skribent"), "'", "''")
   Bildurl     = Replace(Request.Form("bildurl"), "'", "''")
   Texten      = Replace(Request.Form("texten"), "'", "''")

   Conn.execute("Update nyhetartikel Set Rubrik='" & rubrik & "', Typ='" & typ & "', Ort='" & ort & "', Skribent='" & skribent & "', Bildurl='" & bildurl & "', Texten='" & texten & "' Where id = "& Request.Querystring("id"))
   Response.Redirect "admin.asp"
End If
If Request.Querystring("action") = "delete" Then
   Conn.Execute("Delete From nyhetartikel Where id="& Request.Querystring("id"))
   Response.Redirect "admin.asp"
End If

End If
Conn.Close
Set Conn = Nothing%>
@ndersMedlem sedan juni 200032 969 inlägg
#2

Det har väl inte så där extremt mycket med asp att göra, men:

<td><b>Ort:</b><br><select name="ort" size="55">
<option value="visby">visby</option>
<option value="södertälje">södertälje</option>
</select>
</td>
tank82Medlem sedan feb. 2003210 inlägg
#3

guld! =)

tank82Medlem sedan feb. 2003210 inlägg
#4

Nytt problem!!

Hur får jag alternativet att stanna kvar om jag vill ändra?
Jag provade med <%=RecSet("ort")%> men det fungerade inte.

<tr>
    <td><b>Kommun:</b><br><select name="ort" size="1" value="<%=RecSet("ort")%>">
<option value="visby">visby</option>
<option value="södertälje">södertälje</option>

    </select>
</td>
PalleMedlem sedan apr. 20003 174 inlägg
#5

tank82 skrev:

Hur får jag alternativet att stanna kvar om jag vill ändra?

Kan du utveckla den frågan lite? :)

tank82Medlem sedan feb. 2003210 inlägg
#6

ja åp adminsidan så har jag så att man kan ändra på en nyhet (se kod) och då vill jag att alternativet man har valt när man la till nyheten ska vara kvar i dropdownen så att säga. (svårt att förklara)

End If
If Request.Querystring("action") = "andrat" Then
   Rubrik      = Replace(Request.Form("rubrik"), "'", "''")
   Typ         = Replace(Request.Form("typ"), "'", "''")
   Ort         = Replace(Request.Form("ort"), "'", "''")
   Skribent    = Replace(Request.Form("skribent"), "'", "''")
   Bildurl     = Replace(Request.Form("bildurl"), "'", "''")
   Texten      = Replace(Request.Form("texten"), "'", "''")

   Conn.execute("Update nyhetartikel Set Rubrik='" & rubrik & "', Typ='" & typ & "', Ort='" & ort & "', Skribent='" & skribent & "', Bildurl='" & bildurl & "', Texten='" & texten & "' Where id = "& Request.Querystring("id"))
   Response.Redirect "admin.asp"
tank82Medlem sedan feb. 2003210 inlägg
#7

Om ni inte förstår så säg till så ska jag försöka förklara lite bättre ;)

PalleMedlem sedan apr. 20003 174 inlägg
#8

Ok jag förstår, här kommer en variant på en lösning:

[red]<tr>
<td>
	<%
	
	Function IsSelected(strUno, strDos)
	
		strUno = LCase(trim(strUno))
		strDos = LCase(trim(strDos))
		If strUno = strDos Then IsSelected = " selected=""selected"""

	End Function
	
	%>

	<b>Kommun:</b><br>
	<select name="ort" size="1">
		<option value="visby"<%= isSelected(strOrt, "visby") %>>visby</option>
		<option value="södertälje"<%= isSelected(strOrt, "södertälje") %>>södertälje</option>
	</select>

</td>[/red]
tank82Medlem sedan feb. 2003210 inlägg
#9

ok tack, ska testa =)

tank82Medlem sedan feb. 2003210 inlägg
#10

Jag får det inte att fungera, är du 100% på att detta fungerar?

tank82Medlem sedan feb. 2003210 inlägg
#11

någon som vet?

PalleMedlem sedan apr. 20003 174 inlägg
#12

tank82 skrev:

Jag får det inte att fungera, är du 100% på att detta fungerar?

Vad fungerar inte?
Felmeddelande?
Vad händer?

tank82Medlem sedan feb. 2003210 inlägg
#13

det händer ingenting, den går bara tillbaka till det första alternativet =(

PalleMedlem sedan apr. 20003 174 inlägg
#14

Hur ser hela din kod ut nu då?

tank82Medlem sedan feb. 2003210 inlägg
#15

Så här...


massa kod ;)
PalleMedlem sedan apr. 20003 174 inlägg
#16

strOrt i koden jag postade ska alltså ersättas av ort-värdet från databasen.

[red]	<select name="ort" size="1">
		<option value="stad1"<%= isSelected(RecSet("ORTKOLUMNEN_I_DATABASEN"), "stad1") %>>stad1</option>
		<option value="stad2"<%= isSelected(RecSet("ORTKOLUMNEN_I_DATABASEN"), "stad2") %>>stad2</option>
	</select>[/red]
tank82Medlem sedan feb. 2003210 inlägg
#17

ok så här: <option value="Motala"<%= isSelected(RecSet("ort"), "Motala") %>>Motala</option>

PalleMedlem sedan apr. 20003 174 inlägg
#18

Om kolumnen heter ort så, Ja.

tank82Medlem sedan feb. 2003210 inlägg
#19

hihi kanon =)

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