2 svar · 162 visningar · startad av Hallgren
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>
------------------
Forumledare, webForum
[Redigerat av Hallgren den 14 dec 2001]
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
------------------
'## -- second place is the first looser -- ##'
Nu är det ju inte så att jag har problem med själva preview funktionen. Den funkar MEN jag har inte lyckats att spara informationen till min db från preview sidan genom att använda samma skript som jag skulle ha använt om jag skippar preview.
------------------
Forumledare, webForum