D
dursunbaba
Misafir
Acsblog un eski bir sürümü var elimde, onu modifiye etmeye çalışıyorum. Ancak çok sorun cikiyor mesela bu kodda entry giriyoruz ancak bazen giriyor(canı isteyince 
) bazende 500 iç sunucu hatası veriyor neden böyle bir sorun var çözemedim. Database access, sorunlu bir database ancak kullanmam gerek.
admin_add_entry.asp dosyasının içerigi...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="inc_login_check.asp"-->
<!--#include file="inc_db_setup.asp"-->
<!--#include file="inc_functions.asp"-->
<!--#include file="inc_unauthorized_redirect.asp"-->
<%
autoRedirect=false
' But if everything works...
redirectPage="../index.asp"
If Request.Form("ENTRY_TITLE")<>"" _
and Request.Form("ENTRY_TEXT")<>"" _
and Request.Form("CATEGORY_ID")<>"" _
and Request.Form("ENTRY_DATE")<>"" _
and Request.Form("ENTRY_TIME")<>"" _
Then
entriesSQL = "select ENTRIES.* from ENTRIES;"
rsEntries.CursorType = 2
rsEntries.LockType = 3
rsEntries.Open entriesSQL, adoCon
' Add a new record
rsEntries.AddNew
' Update record
rsEntries.Fields("ENTRY_TITLE") = Request.Form("ENTRY_TITLE")
rsEntries.Fields("ENTRY_TEXT") = Request.Form("ENTRY_TEXT")
rsEntries.Fields("CATEGORY_ID") = Request.Form("CATEGORY_ID")
rsEntries.Fields("ENTRY_DATE") = Request.Form("ENTRY_DATE")
rsEntries.Fields("ENTRY_TIME") = Request.Form("ENTRY_TIME")
If Request.Form("ENTRY_STATUS")="Draft" Then
rsEntries.Fields("ENTRY_STATUS") = "Draft"
Else
rsEntries.Fields("ENTRY_STATUS") = "Post"
End If
rsEntries.Fields("ENTRY_UPDATE_DATE") = Date
rsEntries.Fields("ENTRY_UPDATE_TIME") = Time
rsEntries.Update
rsEntries.Close
session("statusMessage")="The entry was added.<br /><br /><a href='" & redirectPage & "'>Continue....</a>"
autoRedirect=true
Else
session("statusMessage")="There was a problem with your form.<br /><br /><a href='javascript:history.go(-1)'>Go back...</a></p>"
End If
%>
<!--#include file="inc_admin_status_message.asp"-->
<!--#include file="inc_db_closeout.asp"-->
) bazende 500 iç sunucu hatası veriyor neden böyle bir sorun var çözemedim. Database access, sorunlu bir database ancak kullanmam gerek.admin_add_entry.asp dosyasının içerigi...
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="inc_login_check.asp"-->
<!--#include file="inc_db_setup.asp"-->
<!--#include file="inc_functions.asp"-->
<!--#include file="inc_unauthorized_redirect.asp"-->
<%
autoRedirect=false
' But if everything works...
redirectPage="../index.asp"
If Request.Form("ENTRY_TITLE")<>"" _
and Request.Form("ENTRY_TEXT")<>"" _
and Request.Form("CATEGORY_ID")<>"" _
and Request.Form("ENTRY_DATE")<>"" _
and Request.Form("ENTRY_TIME")<>"" _
Then
entriesSQL = "select ENTRIES.* from ENTRIES;"
rsEntries.CursorType = 2
rsEntries.LockType = 3
rsEntries.Open entriesSQL, adoCon
' Add a new record
rsEntries.AddNew
' Update record
rsEntries.Fields("ENTRY_TITLE") = Request.Form("ENTRY_TITLE")
rsEntries.Fields("ENTRY_TEXT") = Request.Form("ENTRY_TEXT")
rsEntries.Fields("CATEGORY_ID") = Request.Form("CATEGORY_ID")
rsEntries.Fields("ENTRY_DATE") = Request.Form("ENTRY_DATE")
rsEntries.Fields("ENTRY_TIME") = Request.Form("ENTRY_TIME")
If Request.Form("ENTRY_STATUS")="Draft" Then
rsEntries.Fields("ENTRY_STATUS") = "Draft"
Else
rsEntries.Fields("ENTRY_STATUS") = "Post"
End If
rsEntries.Fields("ENTRY_UPDATE_DATE") = Date
rsEntries.Fields("ENTRY_UPDATE_TIME") = Time
rsEntries.Update
rsEntries.Close
session("statusMessage")="The entry was added.<br /><br /><a href='" & redirectPage & "'>Continue....</a>"
autoRedirect=true
Else
session("statusMessage")="There was a problem with your form.<br /><br /><a href='javascript:history.go(-1)'>Go back...</a></p>"
End If
%>
<!--#include file="inc_admin_status_message.asp"-->
<!--#include file="inc_db_closeout.asp"-->