<% Dim mySmartUpload,iPath,PaperID,SQL,Op Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") mySmartUpload.Upload Set objConn = Server.CreateObject("ADODB.Connection") 'iPath="Server.MapPath("db\db.mdb")" iPath="D:\InetPub\wwwroot\fullaccess\DSP2002\db\db.mdb" objConn.ConnectionString ="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & iPath Set objRS = Server.CreateObject("ADODB.Recordset") objConn.Open objRS.Open "Select Max(id)+1 AS PaperID From Papers",objConn IF isNull(objRS("PaperID")) Then PaperID="0" ELSE PaperID=cStr(Trim(objRS("PaperID"))) 'Add Paper SQL= "Insert Into Papers(id,email,title,preftype,topic1,topic2,topicother,keywords,abstract,dat) VALUES("+PaperID+"," TXT=mySmartUpload.Form("email"):TXT=Replace(TXT," "+""""," «"): TXT=Replace(TXT,"""","»"): TXT=Replace(TXT,"'","`"): SQL=SQL+"'"+TXT+"'," TXT=mySmartUpload.Form("title") :TXT=Replace(TXT," "+""""," «"): TXT=Replace(TXT,"""","»"): TXT=Replace(TXT,"'","`"): SQL=SQL+"'"+TXT+"'," TXT=mySmartUpload.Form("preftype"):TXT=Replace(TXT," "+""""," «"): TXT=Replace(TXT,"""","»"): TXT=Replace(TXT,"'","`"): SQL=SQL+"'"+TXT+"'," TXT=mySmartUpload.Form("topic1"):TXT=Replace(TXT," "+""""," «"): TXT=Replace(TXT,"""","»"): TXT=Replace(TXT,"'","`"): SQL=SQL+"'"+TXT+"'," TXT=mySmartUpload.Form("topic2"):TXT=Replace(TXT," "+""""," «"): TXT=Replace(TXT,"""","»"): TXT=Replace(TXT,"'","`"): SQL=SQL+"'"+TXT+"'," TXT=mySmartUpload.Form("topicother"):TXT=Replace(TXT," "+""""," «"): TXT=Replace(TXT,"""","»"): TXT=Replace(TXT,"'","`"): SQL=SQL+"'"+TXT+"'," TXT=mySmartUpload.Form("keywords"):TXT=Replace(TXT," "+""""," «"): TXT=Replace(TXT,"""","»"): TXT=Replace(TXT,"'","`") 'TXT="'"+TXT+"'":TXT=Replace(TXT,",","'|koma|'"):TXT=Replace(TXT,"|koma|",","): SQL=SQL+"'"+TXT+"'," TXT=mySmartUpload.Form("abstract"):TXT=Replace(TXT," "+""""," «"): TXT=Replace(TXT,"""","»"): TXT=Replace(TXT,"'","`"): SQL=SQL+"'"+TXT+"','"+cStr(Now())+"')" ' Response.Write SQL+"
" objConn.Execute SQL 'Add Authors Dim FName,LName,Affiliate For a=1 To 7 FName=mySmartUpload.Form("fname"+cstr(a)):FName=Replace(FName," "+""""," «"): FName=Replace(FName,"""","»"): FName=Replace(FName,"'","`") LName=mySmartUpload.Form("lname"+cstr(a)):LName=Replace(LName," "+""""," «"): LName=Replace(LName,"""","»"): LName=Replace(LName,"'","`") Affiliate=mySmartUpload.Form("affiliation"+cstr(a)):Affiliate=Replace(Affiliate," "+""""," «"): Affiliate=Replace(Affiliate,"""","»"): Affiliate=Replace(Affiliate,"'","`") IF FName<>"" OR LName<>"" OR Affiliate<>"" THEN SQL= "Insert Into Authors(paper_id,fname,lname,affiliate) VALUES("+PaperID+",'"+FName+"','"+LName+"','"+Affiliate+"')" 'Response.Write SQL+"
" objConn.Execute SQL END IF Next 'Upload Files ------------------------------------------------------------ iPath="D:\InetPub\wwwroot\fullaccess\DSP2002\files\" intCount = mySmartUpload.Save(iPath) For a=1 To mySmartUpload.Files.Count IF Trim(cStr(mySmartUpload.Files(a).FileName))<>"" Then SQL= "Insert Into Files(paper_id,filename) VALUES("+PaperID+",'"+ _ Trim(cStr(mySmartUpload.Files(a).FileName))+"')" 'Response.Write SQL+"
" objConn.Execute SQL END IF Next %> <% objRS.Close: Set objRS=Nothing objConn.Close: Set objConn=Nothing Response.write ("" %>