Search results matching tag 'data base help'

Converting from ObjMail to .asp Mail Component

Scoutmasterm — Mon, 15 Sep 2008 12:13:27 GMT

Need help...

I 'inherited' a website with an .asp driven login page. When a password is entered, the asp script checks the login.mdb file for an e-mail match and, if one is found, it generates an e-mail and sends to the address it matched. An incorrect e-mail entry generates the "We're sorry..." response.

I'm being told that the ObjMail component we've used for many years is no longer supported by our host and that I need to now use the asp mail component. I didn't write this particular piece of ObjMail code so am at a loss as to how to make the conversion.to the .asp mail component

Any help offered would be most appreciated

The ObjMail file from the current system...
-----------------------------------------------------------------------------------

<%Response.Buffer=TRUE%>
<%
'Here is the connection string
Set conn = server.createobject("adodb.connection")
'This connection uses JET 4. It is the preferred method of connecting to an access database
DSNtemp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../login.mdb")
'If you cant use JET then comment out the line above and uncomment the line below
'DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../login.mdb")
conn.Open DSNtemp

'Get information from the lost password form
uid = Request.Form("T1")

SQL = "Select * From users Where uid = '" & uid & "'"
Set RS = Conn.Execute(SQL)

'Check to make sure that the users email exists. If it does, email it to the user
If NOT RS.EOF Then

Dim mytxt
mytxt = "Here is your password: "
Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
'If the email address exists then the info is sent here
ObjMail.To = RS("uid")
'The email address below will appear in the from line of the message that is sent to the user
ObjMail.From = "Scoutmaster@aol.com"
ObjMail.Subject = "Lost Password"
'Send the user the lost password
ObjMail.Body = mytxt & vbcrlf&_
RS("pwd")
ObjMail.Send
Set ObjMail = Nothing

x = "Thank you. Your password will be sent to the e-mail address you entered."

Else

'If the entered email addrees does not exist in the database tell the user
x = "We're sorry. The e-mail address you entered is not in our database. Please return to the Home Page and contact the Assistant Scoutmaster for help."

End If
%>

<html>
<head>
<title>Lost Password</title>
<link rel="stylesheet" type="text/css" href="../../troop_683.css">
</head>

The .asp mail component provided by 1&1 Hosting
-----------------------------------------------------------------------------------

<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>

<%
Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component.
Mail.FromName   = "1&1 Test"
Mail.FromAddress= Request.Form("email")
Mail.RemoteHost = "mrelay.perfora.net" ' The mail server you have to use with Asp Mail
Mail.AddRecipient "ABCDE Company", "hello@justonedomain.com"
Mail.Subject    = "Website - Info Request"
Mail.BodyText   = Request.Form("info")
if Mail.SendMail then
Response.Write "Your mail has already been sent..."
else
Response.Write "Mail send failure. Error was " & Mail.Response
end if
%>

<body>
<p>Thank You!!<br>
</body>
</html>

MDB to ACCDB and running 64bit

LostInAz — Fri, 01 Aug 2008 00:56:53 GMT

Hello,

I am having a "mildy" complex problem.

I have the explanation with screen shots here:

http://www.binarymachines.com/HelpMe/

Please help me understand my mistake.

Thank You for your time.

asp capture data from table1 then update and save it in in table2

alvintiow — Thu, 24 Jul 2008 12:26:17 GMT

Hi,

I got 2 form etry.asp and clform.asp, the user key in in etry.asp, then the information will be stored in table' details'. User key in SO number in clform.asp will capture data from table 'details' and after user update CEtechid etc, it will be stored in table' clnform'.

The etry.asp form got no problem, the record can be save in table 'details', the clform.asp can capture data from table 'details', but when I click 'save', it will prompt the record has been saved, but the record does not update in table clnform. Thanks in advance.

This is my etry.asp 1

<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Accessories Data Entry Form</title> <meta name="Microsoft Theme" content="journal 1011, default"> </head> <body> <FORM NAME = "etry" ACTION = "etry.asp" METHOD="post" ALIGN="center"> <% Dim v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,FilePath,co nn,strSql,rs,msg,strValue on error resume next v1 = Request.Form.Item("SoNo") v2 = Request.Form.Item("Mno") msg="" strValue=Request.Form.Item("HidText") if (strvalue="PullRecord") then if (trim(v1)<>Empty) then Filepath = "F:\Inetpub\abc\fpdb\Accessories.mdb" 'FilePath=server.MapPath("Accessories.mdb") set conn=server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath strsql = "select * from details where sono = '" & trim(v1) & "'" set rs = conn.Execute(strsql) if not rs.Eof then v1 = rs(0) & "" v2 = rs(1) & "" v3 = rs(2) & "" v4 = rs(3) & "" v5 = rs(4) & "" v6 = rs(12) & "" v7 = rs(13) & "" v8 = rs(14) & "" v9 = rs(7) & "" v10 = rs(15) & "" v11 = rs(8) & "" v12 = rs(11) & "" else msg="<br> No Record were Found............" v2="" end if ' rs.close ' conn.close else msg="<br> No Record were Found............" end if else if (strvalue="AdRecord") then if (trim(v1)<>Empty and trim(v2)<>Empty) then Filepath = "F:\Inetpub\abc\fpdb\Accessories.mdb" 'FilePath=server.MapPath("Accessories.mdb") set conn=server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath v3 = Request.Form.Item("Sno") v4 = Request.Form.Item("Acc") v5 = Request.Form.Item("Acnt") v6 = Request.Form.Item("wc") v7 = Request.Form.Item("firstn") v8 = Request.Form.Item("lastn") v9 = Request.Form.Item("SvcDes") v10 = Request.Form.Item("stoadd") v11 = Request.Form.Item("Rmk") v12 = Request.Form.Item("mnl") if trim(v3) = "" then v3 = "NA" end if if trim(v4) = "" then v4 = "NA" end if if trim(v5) = "" then v5 = "NA" end if if trim(v6) = "" then v6 = "NA" end if if trim(v7) = "" then v7 = "NA" end if if trim(v8) = "" then v8 = "NA" end if if trim(v9) = "" then v9 = "NA" end if if trim(v10) = "" then v10 = "NA" end if if trim(v11) = "" then v11 = "NA" end if if trim(v12) = "" then v12 = "False" end if if trim(v12) = "on" then v12 = "True" end if strValue="update details set [mno]='" & v2 & "', [sno]='" & v3 & "', [acce]='" & v4 _ & "', [ac]='" & v5 & "', [contNo]='" & "NA" & "', [origi]='" & "NA" _ & "', [svcdes]='" & v9 & "', [remark]='" & v11 & "', [dte]='" & date _ & "', [tme]='" & time & "', [mnl]=" & v12 & ", [wc]='" & v6 _ & "', [firstn]='" & v7 & "', [lastn]='" & v8 & "', [stoadd]='" & v10 _ & "' where sono = '" & v1 & "'" set rs = conn.Execute(strValue) if Conn.Errors.Count > 0 then msg="<br>Record Not Added, Invalid Input ........" else msg="<br> Record Updated............." end if ' rs.close ' conn.close else msg="<br> No Record(s) were Found............" end if else if strvalue="Cle" then v1="" v2="" v3="" v4="" v5="" v6="" v7="" v8="" v9="" v10="" v11="" v12="" end if end if end if %> <P align=center><STRONG><U>Accessories Form</U></STRONG></P> <TABLE align=center border=0> <TR> <TD><b><font color="#0000FF">*SO No.</font></b></TD> <TD><INPUT id=text1 name="Sono" value = "<%=v1%>" size="26"> <INPUT type="button" value="Go" name="go" maxlength="20" OnClick = "click0()"></TD> </TR> <TR> <TD><b><font color="#0000FF">*Model No. </font></b></TD> <TD><INPUT id=text2 name="Mno" maxlength="20" value = "<%=v2%>" size="31"></TD></TR> <TR> <TD><b><font color="#0000FF">Serial No.</font></b></TD> <TD><INPUT id=text3 name="Sno" maxlength="25" value = "<%=v3%>" size="31"></TD></TR> <TR> <TD><b><font color="#0000FF">Accessories Info.</font></b></TD> <TD><TEXTAREA id=text4 name="Acc" rows="5" cols="26"><%=v4%></TEXTAREA> <input id=checkbox1 type=checkbox name="mnl" <%if v12="True" then%>Checked<%else%>Unchecked<%end if%>><b><font color="#0000FF">Manual</font></b></TD></TR> <TR> <TD><b><font color="#0000FF">Account</font></b></TD> <TD><INPUT id=text5 name="Acnt" maxlength="250" value = "<%=v5%>" size="31"></TD></TR> <TR> <TD><b><font color="#0000FF">Work Centre</font></b></TD> <TD><INPUT id=text6 name="wc" maxlength="50" value = "<%=v6%>" size="31"></TD></TR> <TR> <TD><b><font color="#0000FF">First Name</font></b></TD> <TD><INPUT id=text7 name="firstn" maxlength="50" value = "<%=v7%>" size="31"></TD></TR> <TR> <TD><b><font color="#0000FF">Last Name</font></b></TD> <TD><INPUT id=text8 name="lastn" maxlength="50" value = "<%=v8%>" size="31"></TD></TR> <TR> <TD><b><font color="#0000FF">Service Des.</font></b></TD> <TD><INPUT id=text9 name="SvcDes" maxlength="50" value = "<%=v9%>" size="31"></TD></TR> <TR> <TD><b><font color="#0000FF">Ship To Address</font></b></TD> <TD><INPUT id=text10 name="stoadd" maxlength="50" value = "<%=v10%>" size="31"></TD></TR> <TR> <TD><b><font color="#0000FF">Remarks</font></b></TD> <TD><TEXTAREA id=remark name="Rmk" rows="5" cols="26"><%=v11%></TEXTAREA></TD></TR> </TABLE> <P align=center> <INPUT type="hidden" name="HidText" align="middle" style="WIDTH: 43px; HEIGHT: 22px" size=5><INPUT type="button" value="Save" name="Save" OnClick = "click1()">  <INPUT type="reset" value="Clear" name="Clear" OnClick = "click3()"> <INPUT type="button" value="Close" name="Close" OnClick = "Click2()"> </P> </FORM> <P> <label><b><font color="#0000FF"><%=msg%></font></b></label> <br> <br> <br> <font color="#0000FF"><b>*</b></font> - Mandatory Field <br> </P> </BODY> <script language="vbscript"> function click0() document.etry.HidText.value="PullRecord" document.etry.submit() end function function click1() document.etry.HidText.value="AdRecord" document.etry.submit() end function function click2() document.etry.HidText.value="Close" document.etry.action="MainMenu.asp" document.etry.submit() end function function click3() document.etry.HidText.value="Cle" document.etry.submit() end function </script> </html>

Below is my clform.asp

<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Collection of Equipment Form</title> <meta name="Microsoft Theme" content="journal 1011, default"> </head> <body> <FORM NAME = "clform" ACTION = "clform.asp" METHOD="post" ALIGN="center"> <% Dim v1,v2,v3,v4,v5,v6,v7,v8,v9,v10,v11,v12,v13,FilePat h,conn,strSql,rs,msg,strValue,Status on error resume next v1 = Request.Form.Item("SoNo") v2 = Request.Form.Item("Mno") msg="" strValue=Request.Form.Item("HidText") if (strvalue="PullRecord") then if (trim(v1)<>Empty) then Filepath = "F:\Inetpub\abc\fpdb\Accessories.mdb" 'FilePath=server.MapPath("Accessories.mdb") set conn=server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath strsql = "select * from clnform where sono = '" & trim(v1) & "'" set rs = conn.Execute(strsql) if not rs.Eof then v1 = rs(0) & "" v2 = rs(1) & "" v3 = rs(2) & "" v4 = rs(3) & "" v5 = rs(4) & "" v6 = rs(5) & "" v7 = rs(6) & "" v8 = rs(8) & "" v9 = rs(7) & "" v10 = rs(11) & "" v11 = rs(13) & "" v12 = rs(14) & "" v13 = rs(15) & "" ' response.write "V4 = " & v4 & "***" & " V5 = " & v5 & "***" & "V6 = " & v6 & "***" & "V7 =" & v7 & "***" & "V8 = " & v8 & "****" & " V9 =" & v9 & "****" & " V10 =" & v10 & "*****" else v2 = "" msg="<br> No Record were Found............" ' rs.close ' conn.close end if else v2 = "" msg="<br> Enter SO Number to Search............" end if else if (strvalue="AdRecord") then if (trim(v1)<>Empty and trim(v2)<>Empty) then Filepath = "F:\Inetpub\abc\fpdb\Accessories.mdb" 'FilePath=server.MapPath("Accessories.mdb") set conn=server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath v3 = Request.Form.Item("sno") v4 = Request.Form.Item("dte") v5 = Request.Form.Item("cetechid") v6 = Request.Form.Item("pitechid") v7 = Request.Form.Item("danames") v8 = Request.Form.Item("Acc") v9 = Request.Form.Item("rmk") v10 = Request.Form.Item("cStatus") v11 = Request.Form.Item("rStatus") V12 = Request.Form.Item("ccert") V13 = Request.Form.Item("mnl") if trim(v3) = "" then v3 = "NA" end if if trim(v4) = "" then v4 = "NA" end if if trim(v5) = "" then v5 = 0 end if if trim(v6) = "" then v6 = 0 end if if trim(v7) = "" then v7 = 0 end if if trim(v8) = "" then v8 = "NA" end if if trim(v9) = "" then v9 = "NA" end if if trim(v10) = "" then v10 = 0 end if if trim(v11) = "" then v11 = 0 end if if trim(v12) = "" then v12 = "False" end if if trim(v12) = "on" then v12 = "True" end if if trim(v13) = "" then v13 = "False" end if if trim(v13) = "on" then v13 = "True" end if strsql = "select * from Clnform where sono = '" & trim(v1) & "'" set rs = conn.Execute(strsql) if not rs.Eof then strsql="update Clnform set [mno]='" & v2 & "', [sno]='" & v3 & "', [epdte]='" & v4 & "', [cetechid]='" & v5 _ & "', [pitechid]='" & v6 & "', [daname]='" & v7 & "', [remark]='" & v9 _ & "', [acce]='" & v8 & "', [dte]='" & FormatDateTime(date,2) & "', [tme]='" & FormatDateTime(time,4) _ & "', [cstatus]='" & v10 & "', [rstatus]='" & v11 & "', [mnl]=" & v13 & ", [ccert]=" & v12 & " where sono='" & v1 & "'" set rs = conn.Execute(strsql) end if if Conn.Errors.Count > 0 then msg="<br>Record Not Updated, Invalid Input ........" else msg="<br> Record has been Saved............." end if ' rs.close ' conn.close else msg="<br> Enter SO Number & Press Search button............" end if else if strvalue="Cle" then v1="" v2="" v3="" v4="" v5=0 v6=0 v7=0 v8="" v9="" v10=0 v12="" v13="" end if end if end if %> <P align=center><STRONG><U>Collection of Equipments Form (CALIBRATION/REPAIR)</U></STRONG></P> <TABLE align=center border=0> <TR> <TD><b><font color="#800080">*SO No.</font></b></TD> <TD><INPUT id=text1 name="Sono" value = "<%=v1%>" size="31"> <INPUT type="button" value="Search" name="go" maxlength="20" OnClick = "click0()"> </TD> </TR> <TR> <TD><b><font color="#800080">Model No.</font></b></TD> <TD><INPUT id=text2 name="Mno" maxlength="20" value = "<%=v2%>" size="31" readOnly></TD></TR> <TR> <TD><b><font color="#800080">Serial No.</font></b> </TD> <TD><INPUT id=text3 name="sno" maxlength="25" value = "<%=v3%>" size="31" readOnly></TD></TR> <TR> <TD><b><font color="#800080">Date</font></b> </TD> <TD><INPUT id=text4 name="dte" maxlength="50" value = "<%=v4%>" size="36" readOnly></TD></TR> <TR> <TD><b><font color="#800080">CE Tech ID</font></b></TD> <TD><SELECT id=select1 style="width: 225; height: 23" name="CETechID" size="1"> <% if (v5 = 0 or v5 = "") then %><OPTION VALUE = 0 selected>Open</OPTION><%else %><OPTION VALUE = 0>Open</OPTION> <option value="1169">1169</option> <option value="1232">1232</option> <option value="1233">1233</option> <option value="1234">1234</option> <option value="1235">1235</option> <%end if%> <% Filepath = "F:\Inetpub\abc\fpdb\Accessories.mdb" 'FilePath=server.MapPath("Accessories.mdb") set conn=server.CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath strsql = "select * from engid" set rs = conn.Execute(strsql) While not rs.eof if v5 = rs("techid") then response.write("<OPTION value=" & rs("techid") & " selected>" & rs("techid") & "</OPTION>") else response.write("<OPTION value=" & rs("techid") & ">" & rs("techid") & "</OPTION>") end if rs.moveNext Wend rs.close Set rs=nothing Conn.close Set Conn=nothing %> </SELECT> </TD> </TR> <TR> <TD><b><font color="#800080">PI Tech ID</font></b></TD> <TD><SELECT id=select2 style="width: 151; height: 23" name="PItechID"> <% if v6 = 0 then %><OPTION VALUE = 0 selected>Open</OPTION><%else %><OPTION VALUE = 0>Open</OPTION><%end if%> <% if v6 = 1 then %><OPTION VALUE = 1 selected>Anuar</OPTION><%else %><OPTION VALUE = 1>Anuar</OPTION><%end if%> <% if v6 = 2 then %><OPTION VALUE = 2 selected>Misran</OPTION><%else %><OPTION VALUE = 2>Misran</OPTION><%end if%> <% if v6 = 3 then %><OPTION VALUE = 3 selected>Mush</OPTION><%else %><OPTION VALUE = 3 >Mush</OPTION><%end if%> </SELECT> </TD> </TR> <TR> <TD><b><font color="#800080">DA Name</font></b></TD> <TD><SELECT id=select3 style="width: 151; height: 23" name="DAnames"> <% if v7 = 0 then %><OPTION VALUE = 0 selected>Open</OPTION><%else %><OPTION VALUE = 0>Open</OPTION><%end if%> <% if v7 = 1 then %><OPTION VALUE = 1 selected>Jessica</OPTION><%else %><OPTION VALUE = 1>Jessica</OPTION><%end if%> <% if v7 = 2 then %><OPTION VALUE = 2 selected>Jaffar</OPTION><%else %><OPTION VALUE = 2>Jaffar</OPTION><%end if%> <% if v7 = 3 then %><OPTION VALUE = 3 selected>Catherine</OPTION><%else %><OPTION VALUE = 3>Catherine</OPTION><%end if%> </SELECT> </TD> </TR> <TR> <TD><b><font color="#800080">Accessories Info.</font></b></TD> <TD><TEXTAREA id=text4 name="Acc" rows="5" cols="47" readOnly><%=v8%></TEXTAREA> <input id=checkbox1 readOnly type=checkbox name="Manual" <%if v13="True" then%>Checked<%else%>Unchecked<%end if%>><b><font color="#0000FF">Manual</font></b>      </TD></TR> <TR> <TD><b><font color="#800080">Remarks</font></b></TD> <TD><TEXTAREA id=remark name="Rmk" rows="5" cols="47"><%=v9%></TEXTAREA></TD></TR> </TABLE> <P align=center> <INPUT type="hidden" name="HidText" align="middle" style="WIDTH: 43px; HEIGHT: 22px" size=5> <INPUT type="button" value="Save" name="Add" OnClick = "click1()"> <INPUT type="reset" value="Clear" name="Clear" OnClick = "click3()"> <INPUT type="button" value="Close" name="Close" OnClick = "Click2()"> </P> </FORM> <P> <label><b><font color="#0000FF"><%=msg%></font></b></label> <br> <br> <br> <font color="#0000FF"><b>*</b></font> - Mandatory Field <br> </P> </BODY> <script language="vbscript"> function click0() document.clform.HidText.value="PullRecord" document.clform.submit() end function function click1() document.clform.HidText.value="AdRecord" document.clform.submit() end function function click2() document.clform.HidText.value="Close" document.clform.action="MainMenu.asp" document.clform.submit() end function function click3() document.clform.HidText.value="Cle" document.clform.submit() end function </script> </html>

My clnform field are sono, mno, sno, epdte, cetechid, pitechid, daname, remark, ace, dte, tme, cstatus, id, rstatus, ccert, mnl

SQL Server connection

tolgs — Fri, 11 Jan 2008 01:30:24 GMT

We are using a dedicated Windows 2003 machine running IIS 6.0 and SQL Server 2005 (on the same machine). Our code is Classic ASP and recently our server became unresponsive during busy hours where only about 50 requests would execute (with long delay) and the rest would time out. For the site visitors the experience is a hung service with no response.

We want to make sure that there is no memory leak driven by our code and we've checked line by line to make sure that we are closing all connections and destroying objects. However, we also would like to validate the method we connect to the SQL database and would like the help of the community here. Below is the code we are using to connect and would appreciate if someone can skim over it and tell us we we should be doing something differently:

<%
Function glpCloseRst(objRst)
  If IsObject(objRst) Then
   If objRst.State = 1 Then
    objRst.Close
    Set objRst = Nothing
   End If
  End If
End Function

Function glpCloseDBConn (objDBConn)
  If IsObject(objDBConn) Then
   If objDBConn.State = 1 Then
    objDBConn.Close
    Set objDBConn = Nothing
   End If
  End If
End Function
%>

<%
ConnectionStrSQL = "Driver={SQL Native Client};Server=555.55.555.55;Database=dbname;Uid=username;Pwd=password;"
set connSQL = CreateObject("ADODB.Connection")
connSQL.open ConnectionStrSQL
%>

Dim allSQX
allSQLX = "SELECT * FROM TABLE WHERE id='something';"

Dim allRsX
Set allRsX = Server.CreateObject("ADODB.Recordset")
allRsX.Open allSQLX, connSQL, 3, 3

DO UNTIL allRsX.eof

...somestuff...

allRsX.movenext
LOOP

glpCloseRst(allRsX)
glpCloseDBConn(connSQL)
%>

many thanks

RE: loadUserProfile and IIS7 - understanding temporary directory failures

jonrandahl — Thu, 09 Aug 2007 08:38:56 GMT

Mornin all,

First may I say thank you to everyone, for without this site, and a few others, my initial foray into IIS7 and Vista would have been cut short by a wail of despair and a reformat! So ....

Thank you!

Now on to the fun stuff:

Bill S, in his "loadUserProfile and IIS7 - understanding temporary directory failures" post gives us different ways to handle the dreaded "Operation must use an updateable query." error if and when we are confronted by it; alas, I've run smack into it! Twice!

Here's what happened:

I loaded a current project onto the new laptop as the groundbreaking piece to see what IIS7/Vista could do! This project is for a local charity and uses a simple Classic ASP driven CMS and Access to reduce overhead. After scouring the net and coming to terms with the differences in directory locations and virtual paths and application pools (so I thought) I load the Administration section into the browser and low and behold I can't update the database due to permissions. So back to the net I go and I stumble across a post which explains about using either the icals commands to change the permissions or simply edit the applicationHost.cofig file and add the following:

            <applicationPoolDefaults>
                <processModel identityType="NetworkService" loadUserProfile="false" />
            </applicationPoolDefaults>

So, taking the easy way out, and thereby learning all about running programs in elevated status and the wonderful nightmare that entails [note heavy sarcasm here], I duly c&p these three line to the file, save, return to the browser and hit ctrl & f5....

Cha-Ching!
Everything works!

I'm able to update to my hearts desire, the site is reading everything fine and development can finally complete! The clients happy, I'm happy, we're all happy! :-)

So I move onto a new project,

This one is a bit more complicated, I decide that I need to start updating a personal site I first developed in 2002 which was my first attempt at Classic ASP and therefore was in dire need for an overhaul. So I download a copy of the currently live site, which runs on 2k3 server/IIS6 fine with never a problem, create the new site following all the loverly lessons learned previously, switch to the browser load the flash intro [I know, no comments please!] get into the front page to log in and ...

BAM!
I seem to have hit a brick wall!
Again.
The same brick wall I thought I knocked down with the first site ...

Microsoft JET Database Engine error '80004005'

Operation must use an updateable query.

/index.asp, line 36

So back to the net I go, and this is when I come across Bill's posting which talks about the right, and somewhat lesser right, way to handle this issue; and the right way being to use the icals statements in an elevated status command prompt instead of changing the applicationHost.config file.

So I do.

But nothing is different!

So here's the rub, I've checked the code in the applicationHost.config file, nothings changed;

I've checked the actual security settings of the

%system%\ServiceProfiles\NetworkService\AppData\Local\Temp directory:

NETWORK SERVICE has full rights,
IIS_IUSR permissions are set to Modify, Read, Write.

I've checked the permissions on the database folder within the site, as well as the permissions of the actual .mdb files

Nothing!

I keep getting the '80004005' error and cannot figure out what I can do to be able to sort it out!

Not only that, the original site, the charity one, now is throwing out the same errors as well?

So I duly apologise for the long post but..

HELP!

Please!

Jon

ASP 0178 error...

coolmoment — Tue, 05 Jun 2007 18:49:32 GMT

OS: Vista Home Premium, IIS 7, VB 6

i keep getting following error when i try to load my own dll.

Server object error 'ASP 0178 : 800a0005'
Server.CreateObject Access Error

The call to Server.CreateObject failed while checking permissions.
Access is denied to this object.

below doc worked on winow xp.

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q259725

How can i do it on Vista?

Pls help !!

Thanks.

please help meee, database wierd error

reisel — Mon, 05 Mar 2007 17:38:29 GMT

hi,

i got my asp and database site running and its all fine/ but for some wierd reason i cant change any thing in the DB.. i can print, but when i do update or delet it givs me an wierd error.. look:

The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.
Please try the following: Click the Refresh button, or try again later. Open the 0) && (window.navigator.appVersion.charAt(0) == "2"))) { Homepage(); } //--> 127.0.0.1 home page, and then look for links to the information you want. HTTP 500.100 - Internal Server Error - ASP error Internet Information Services Technical Information (for support personnel) Error Type: Microsoft JET Database Engine (0x80004005) Could not delete from specified tables. /danielreiselasp/delet.asp, line 26 Browser Type: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322) Page: GET /danielreiselasp/delet.asp Time: Monday, March 05, 2007, 7:38:01 PM More information: Microsoft Support