Hej!
Jag har lite problem så här på kvällskvisten. Alla "case" funkar som de skall förutom u_action="add".
Alltså funktionen fungerar (med hjälp av WF) men problemet är att u_action="add" inte öppnar i den befintliga layouten, utan den visas på ett tomt "blad".
Jag skulle vilja att den öppnas som de andra "casen".
Vet inte hur man skall möblera om så att det blir rätt...please hjälp!
MVH Jesper
OBS! Lång kod. u_action="add" markeras med fettext
<%
U_Id=request.querystring("Id")
response.cookies("C_Id") = U_Id
vovve=request.cookies("C_Id")
s_act=request.querystring("s_act")
u_action=request.querystring("u_action")
Id=request.form("Id")
Rubrik=replace(trim(request.form("Rubrik")),"'","'")
Fraga=replace(trim(request.form("Fraga")),"'","'")
Svar=request.form("Svar")
u_log=request.querystring("u_log")
script_name=request.servervariables("script_name")
'hämta brudar
accessdatabase="database/snubbar"
cn="driver={Microsoft Access Driver (*.mdatabase)};"
cn=cn & "databaseq=" & server.mappath(accessdatabase)
databaseopen = "SELECT * FROM brudar Where Id ="& request.cookies("C_Id")
Set snubbar = Server.CreateObject("ADOdatabase.Recordset")
snubbar.Open databaseopen, cn, 3, 3
snubbarnamn=snubbar("Namn")
skostorlek=snubbar("skostorlek")
beskrivning=snubbar("beskrivning")
snygging=snubbar("snygging")
kat=snubbar("vovve")
snubbar.Close
Set snubbar = nothing
if u_action <> "add" then
select case s_act
case "post"
Rubrik = Request.Form("Rubrik")
Fraga = Request.Form("Fraga")
username = request.cookies("username")
'skicka med jmail
end select
select case u_action
case "insert"
sql = "insert into Inlagg (Id,Rubrik,Fraga,Svar)"
sql = sql & " values( '" & Id & "' , '" & Rubrik & "' , '" & Fraga & "' , '" & Svar & "' )"
case "display"
sql="select * from inlagg where log = "&u_log
case else
sql="select * from inlagg where Id = "& U_Id &" order by datum desc "
end select
accessdatabase="database/snubbar"
cn="driver={Microsoft Access Driver (*.mdatabase)};"
cn=cn & "databaseq=" & server.mappath(accessdatabase)
Set rs = Server.CreateObject("ADOdatabase.Recordset")
rs.Open sql, cn
if u_action <> "insert" then
if rs.eof then
response.redirect script_name &"?Id="& vovve
end if
end if
%>
<html>
<head>
<title>sidan.com</title>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#FFFFFF">
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" align="center" width="180">
<table width="181" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" height="7"></td>
</tr>
<tr>
<td valign="top" align="center">
<table width="179" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="165" border="0" align="center">
<tr>
<td height="9">
<%
databaseop = "SELECT Id,vovve FROM brudar where not Id="&U_Id&" Order by vovve"
Set brudar = Server.CreateObject("ADOdatabase.Recordset")
brudar.Open dbop, cn, 3, 3
Do While Not brudar.EOF
response.write "<a href='snubbar_view.asp?Id="& brudar("Id")&"' style='color: #FFFFFF;' title='Till "& brudar("vovve") &"'>"& brudar("vovve")&"</a><br>"
brudar.Movenext
Loop
brudar.Close
Set brudar = nothing%>
</td>
</tr>
</table>
<div align="center">
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td valign="top" align="center" width="9"> </td>
<td valign="top" align="center" width="549">
<table width="544" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" colspan="2" height="12">
<p>
<%if u_action="insert" or s_act="post" then
response.write "<font size='2'>"&"Tack "& Request.cookies("firstname")&"!"
response.write "<br>Din fråga är skickad till snubbarpanelen på sidan.com och kommer att publiceras så fort som möjligt.<br>sidan.com förbihåller sig rätten att avgöra om frågan skall publiceras.<br>Med Vänliga Hälsningar /sidan.com </font><br>"
else
Response.write "<font size='2'><br><b>"& kat &"</b><br></font>"
response.write "<table width='535 border='0' cellspacing='0' cellpadding='1'>"
Response.write "<tr><td valign='top'><font size='2'>"& snubbarnamn &" <i>"& skostorlek &"</i><br><font size='1'>"& beskrivning &"</font></td><td valign='top'><Img scr='"& snygging &"'width='80' height='100'alt='"& snubbarnamn &"'></font></td></tr><tr><td></td>"
Response.write "<td></td></tr></table>"
do while not rs.eof and counter < 100
counter=counter+1
if u_action <> "display" then %>
<table width="345" border="0">
<tr>
<td width="21"><font size="1" color="#CC9933">
<%IF rs("datum") > date - 3 THEN Response.Write "Ny»" END IF %>
</font></td>
<td width="57"><font size="1" color="#CC9933"><%=left(rs("datum"),10) %></font></td>
<td width="253"><font size="1"><a href="<%= script_name %>?u_action=display&Id=<%= vovve%>&u_log=<%= rs("log")%>#inlagg"><%= rs("Rubrik") %></a></font></td>
</tr>
</table>
<% else
Response.write "<b><font size='2'>"& rs("Rubrik")&"</b></font><font size='1'><br>"&"Publicerad: " & left(rs("datum"),10)& "</font>"
Response.write "<p><font size='1'><b>Fråga: </b>"& Replace(rs("Fraga"), vbCrLf, "<br>")
Response.write "<br><b>Svar: </b>"& Replace(rs("Svar"), vbCrLf, "</font><br>")
end if
rs.movenext
loop
rs.close
set rs=nothing
end if
end if
[b]if u_action="add" then %>
<script Language="JavaScript">
<!--
function Blank_TextField_Validator(form)
{
if (form.Rubrik.value == "")
{
alert("Rubriken kan inte lämnas tom.");
form.Rubrik.focus();
return (false);
}
if (form.Fraga.value == "")
{
alert("Frågefältet kan inte lämnas tomt.");
form.Fraga.focus();
return (false);
}
return (true);
}
//-->
</script>
<%response.write "<form method=""post"" onsubmit=""return Blank_TextField_Validator(this)"" action=""" & script_name & "?s_act=post&Id="& vovve &"#inlagg"">" %><br>
<table width="335" border="0" bgcolor="#993333" bordercolor="#993333" height="307">
<tr>
<td bgcolor="#CCCCCC">
<table width="350" border="0" height="304" bgcolor="#FFFFFF" bordercolor="#FFFFFF">
<tr>
<td width="34" height="37" valign="middle"> <font size="1">Rubrik:</font>
<p>
<input type="hidden" name="Namn" value="<%=request.cookies("username")%>"size="30">
</td>
<td width="217" height="37" valign="middle"><font size="1">
<input type="text" name="Rubrik" size="30" maxlength="42" >
</font></td>
<td rowspan="3" valign="baseline" height="255" width="72"> </td>
</tr>
<tr>
<td width="34" height="62" valign="top"><font size="1">Fråga:</font></td>
<td width="217" height="62" valign="top"><font size="1">
<textarea rows="8" name="Fraga" cols="30"></textarea>
</font></td>
</tr>
<tr>
<td width="34" height="63" valign="top"> </td>
<td width="217" height="63" valign="top">
<p><font size="1">
<input type="submit" value="Fråga" name="submit">
</font></p>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
Response.write "<a href="""& script_name &"?Id="& vovve &"#inlagg"">"&"Visa alla frågor</a>"
Response.write "</form>"
else
Response.write "<p><a href="""& script_name &"?Id="& vovve &"#inlagg"">"&"Visa alla frågor</a><br>"
Response.write "<a href="""& script_name &"?u_action=add&Id="& vovve &"#inlagg"">"&"Fråga om "&kat&"</a>"
end if
%>
[/b]</td>
</tr>
<tr>
<td valign="top" colspan="2">
</td>
</tr>
<tr>
<td valign="top" height="0" colspan="2"> </td>
</tr>
<tr valign="bottom">
<td height="43" width="429">
</td>
<td height="43" width="115">
</td>
</tr>
</table>
</td>
<td valign="top" align="center" width="10"><img src="../bilder/spacer.gif" width="1" height="100" vspace="0" hspace="0" border="0"></td>
</tr>
</table>
</td></tr></table>
</body>
</html>