Använd dig av Select Case.
strAction = Request.QueryString("action")
Select Case UCase(strAction)
Case "PREVIEW"
'## -- här lägger du koden för preview --
Case Else
'## -- här lägger du default koden som ska köras --
End Select
cya,
PatrikB
Trådstart#1
Yo!
Skulle behöva lite förslag till hur man bästa löser detta.
Sitter med ett skript som läger till text och datum i min db men har även en preview sida som jag vill att man skall kunna lägga in texten ifrån också. Saken är den att jag vill hålla ner på filer så jag försöker få in alla eller många av funktioner i samma skript och sedan anropa rätt men det har inte funkat så bra. Skulle bli glad om någon skulle kunna hitta en lösning.
.insert
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("info.mdb")
newsdate = Date()
newstext = trim(request.form("newstext"))
if trim(request.form("newstext")) = "" then
session("notext") = "Du måste skriva in något för att kunna spara i databasen"
response.redirect "insert-news.asp"
elseif Len(Request.Form("preview")) > 0 then
session("preview") = request.form("newstext")
response.redirect "preview.asp"
else
strSQL = "Insert INTO news (newsdate, newstext) values ('" & newsdate & "', '" & newstext & "')"
Connect.Execute(strSQL)
Connect.Close
Set Connect = Nothing
End if
%>
.preview
<form method="post" action=" ">
<table border="0" cellpadding="0" cellspacing="0" width="300">
<tr>
<td><%response.write session("preview")%></td>
</tr>
</table>
<input type="submit" value="lägg till">
</form>