Satt å tänkte;
Ifall sidan går för snabbt, hinner kanske inte allt sparas???
Lite kod:
<%
Dim strHeadline, strIngres, strText, strConfirmID
Dim strLayout, strCategory, strSchool, strConfirm, strDate
Dim strHeadlineConvert, strIngresConvert, strTextConvert
strHeadline = Request.Form("frmHeadline")
strIngres = Request.Form("frmIngres")
strText = Request.Form("frmText")
strLayout = Request.Form("frmLayout")
strCategory = Request.Form("frmCategory")
strSchool = Request.Form("frmSchool")
strDate = now
strHeadlineConvert = Server.HTMLEncode(strHeadline)
strIngresConvert = Server.HTMLEncode(strIngres)
strTextConvert = Server.HTMLEncode(strText)
strIngresConvert = Replace(strIngresConvert, VbCrlf, "<br>")
strTextConvert = Replace(strTextConvert, VbCrlf, "<br>")
If Len(Request.Form("next")) Then
Select Case userStatus
Case 1, 3
strConfirm = "false"
strConfirmID = 0
Case 5, 8
strConfirm = "true"
strConfirmID = MyID
End Select
Dim objConnect, objRS, SQLinsert, SQLget, newsID
Set objConnect = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
SQLinsert = "INSERT INTO news (newsCreated, userID, newsCountRead, newsShowFront, newsLayout, newsCategory, " & _
"newsSchool, newsConfirm, newsConfirmID, newsReady, newsHeadline, newsIngres, newsText) VALUES " & _
"('"& strDate &"', "& MyID &", 0, false, " & _
"'"& strLayout &"', '"& strCategory &"', '"& strSchool &"', " & _
""& strConfirm &", "& strConfirmID &", false, '"& strHeadlineConvert &"', '"& strIngresConvert &"', '"& strTextConvert &"');"
objConnect.Open "DSN=webportal"
objConnect.Execute SQLinsert
SQLget = "SELECT news.newsID FROM news WHERE news.newsCreated = #"& strDate &"# AND news.userID = "& MyID &";"
objRS.Open SQLget, objConnect, adOpenForwardOnly, adLockReadOnly, adCmdText
newsID = objRS("newsID")
objRS.Close
Set objRS = Nothing
objConnect.Close
Set objConnect = Nothing
Response.Redirect("user_news04.asp?newsID=" & newsID & "&Layout=" & strLayout)
Else
%>
