--- title: "Case strul..." type: "forum-thread" url: "https://www.webforum.nu/amne/asp/42517-case-strul" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Jesper T" published: "2002-04-26T00:40:17.000Z" updated: "2002-04-28T21:11:14.000Z" replies: 11 views: 351 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/42517-case-strul" --- # Case strul... ## #1 — Jesper T, 2002-04-26T00:40Z 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 %> sidan.com
<% 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 ""& brudar("vovve")&"
" brudar.Movenext Loop brudar.Close Set brudar = nothing%>
 

<%if u_action="insert" or s_act="post" then response.write ""&"Tack "& Request.cookies("firstname")&"!" response.write "
Din fråga är skickad till snubbarpanelen på sidan.com och kommer att publiceras så fort som möjligt.
sidan.com förbihåller sig rätten att avgöra om frågan skall publiceras.
Med Vänliga Hälsningar /sidan.com
" else Response.write "
"& kat &"
" response.write "" Response.write "" Response.write "
"& snubbarnamn &" "& skostorlek &"
"& beskrivning &"		"& snubbarnamn &"
" do while not rs.eof and counter < 100 counter=counter+1 if u_action <> "display" then %>
<%IF rs("datum") > date - 3 THEN Response.Write "Ny»" END IF %> <%=left(rs("datum"),10) %> #inlagg"><%= rs("Rubrik") %>
<% else Response.write ""& rs("Rubrik")&"
"&"Publicerad: " & left(rs("datum"),10)& "" Response.write "

Fråga: "& Replace(rs("Fraga"), vbCrLf, "
") Response.write "
Svar: "& Replace(rs("Svar"), vbCrLf, "
") end if rs.movenext loop rs.close set rs=nothing end if end if [b]if u_action="add" then %> <%response.write "

" %>
Rubrik:

"size="30">

 
Fråga:
 

<% Response.write ""&"Visa alla frågor" Response.write "
" else Response.write "

"&"Visa alla frågor
" Response.write ""&"Fråga om "&kat&"" end if %> [/b]
``` Permalänk: https://www.webforum.nu/p/42517 ## #2 — Jesper T, 2002-04-27T14:03Z Är det verkligen ingen som vet...? Permalänk: https://www.webforum.nu/p/659013 ## #3 — Jesper T, 2002-04-27T15:44Z Jag ruttnar snart på detta! Jag har försökt att dribbla med koden på hundra olika sätt men alltid är det något som strular...Hjälp!! Permalänk: https://www.webforum.nu/p/659054 ## #4 — Jesper T, 2002-04-28T00:15Z öhhh......... Permalänk: https://www.webforum.nu/p/661925 ## #5 — Jesper T, 2002-04-28T18:10Z Detta går alltså inte att lösa eller...........?? Permalänk: https://www.webforum.nu/p/662221 ## #6 — @nders, 2002-04-28T18:24Z Vad menar du med ett tomt blad? Hur kommer man till de olika casen? Länkar? Du har inte stavat fel på target i länken? Permalänk: https://www.webforum.nu/p/662229 ## #7 — Jesper T, 2002-04-28T18:33Z Själva funktionen är det inget problem med och alla länkar funkar som de skall. Alla case fungerar också med samtliga länkar. Och nu till problemet: **När jag klickar på länken som skall behandla ett formulär så visar den inte det som står innan "if-satsen" u_action="add" (html-koden), utan den "går ur" den befintliga layouten och visas på en tom sida. Det är fel! Allt skall visas i den befintliga layouten med tabeller färger osv.** Det kanske är lite konstigt beskrivet men jag kan inte förklara på ngt annat vis. **Grattis till tiotusenstrecket @nders!** MVH Jesper Permalänk: https://www.webforum.nu/p/662241 ## #8 — emission, 2002-04-28T18:40Z Jag kan se fel, men det ser som att din första if u_action \<\> "add" then sträcker sig över allt det du vill ha med, och då går det ju inte... Permalänk: https://www.webforum.nu/p/662249 ## #9 — Jesper T, 2002-04-28T18:51Z Ok vad bra, var skall den sitta då? Jag hajjar inte riktigt, lite trööööööög! Permalänk: https://www.webforum.nu/p/662257 ## #10 — emission, 2002-04-28T19:48Z Jag vet inte riktigt, men det ser ut som att du kan byta till ``` set rs=nothing end if if u_action="add" then %> ``` och ``` response.redirect script_name &"?Id="& vovve end if end if end if ``` dvs. flytta upp ett "end if" Men jag är inte helt inne i strukturen... Permalänk: https://www.webforum.nu/p/662342 ## #11 — Jesper T, 2002-04-28T21:01Z Oj, tack det ser jättebra ut nu! /Jesper Permalänk: https://www.webforum.nu/p/662409 ## #12 — emission, 2002-04-28T21:11Z Gött! Permalänk: https://www.webforum.nu/p/662418 --- Tråden på webben: https://www.webforum.nu/amne/asp/42517-case-strul